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1986 


ART STUDIO, 
CUANDO EL 
SPECTRUM SE 
HACE ARTE 


Análisis del más potente 
programa de dibujo desarrollado 
hasta el momento. Ventanas, 
iconos, menüs descendentes y 
ratón trabajando en el Spectrum. 


COMPRESOR DE 
PANTALLAS 


Ponga a dieta sus pantallas: con 
esta rutina se comerán mucha 
menos memoria, pudiéndose 
almacenar simultánemente más 
de cinco en un Spectrum 48 K 


SWEEVO'S WORLD, 
GUIA DEL HACKER 


Manuel Arana continúa 
desmenuzando programas. Le ha 
llegado el turno al último juego 
de Gargoyle Games, Sweedo's 
World. Descubrimos todos sus 
secretos. 


NOTICIAS 


Amstrad Consumer Electronics 
compra Sinclair Research... iy 
nosotros con estos pelos! 


FACTORES PRIMOS 


Juan Ignacio Perea, ganador del 
concurso matemático «El número 
más largo», comenta a fondo su 
programa. 
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SUPLEMENTO QL 


¿Quién es quién en el mundo del 
QL? 

Una exhaustiva relación de los 
fabricantess, distribuidores, 
software y hardware para el 
ordenador más polémico de 
Sinclair 


Los Bugs del Sistema Operativo 
Ningún ordenador está libre de 
errores. El QL tampoco, pero si 
los conoce podrá evitarlos. 


Sistemas Operativos Multitarea 


APRENDIENDO 
LENGUAJE 
MÁQUINA 


Terminamos el análisis del juego 
de instrucciones del Z-80 y 
ofrecemos una completa tabla con 
sus caracteristicas. 


PROGRAMAS 


Química, física y juegos están 
representados en la sección de 
programas de este mes: Sistema 
periódico, Dinámica y 
Mastermind. . 
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tinas/Construcción del interface 
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go méquina/Análisis del editor de 
textos Tasword/Interfaces para im- 
presoras/Programas. 
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Novedades sonimag'84/Ampliando 
el Basic/Programas pera ordenar 
programas/Gráficos con el VU-3D/ 
Lenguaje Forth/Archivos en micro- 
drive/Programación de un interface 
de impresora/Programas. 


Nüm. 4 - 300 ptas. 
De profesión: programador/Consola 
para el Spectrum/Comparación có- 
digo máquina-Basic/Análisis progra- 
ma contabilidad/Calendario/Pascal/ 
Programas. 


Núm. 5 - 300 ptas. 

Floppys pare Spectrum/Diseño asis: 
lido por ordenador/64 Caracteres 
por linea/Juego dela vida/Pascal/Asi 
hacemos las portadas/Control de 
evaluaciones/Programas. 


Núm. 6 - 300 ptas. 
Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pescal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: torgugas para todos/ Interrup- 
ciones del Z-80/Programas. 


Nüm. 7 - 300 ptas. 

Del 48 al PLUS paso a paso/¿Plotter 
para Spectrum?/Juegos/Libros de 
código máquina/Lápiz óptico. Pro- 
gramación del montaje/El LOGO en 
la  escuela/Pascal/Floppys рага 
Spectrum/Programas. 


Nüm 8 - 300 ptas. 

Amplia tu memoria... а 48K/Arquitec- 
tura: análisis del PREYME/Juegos/ 
FORTH. Nociones básicas/Una clave, 
please/QL Magazine. Ultimas nove- 
dades, análisis de software, Lengua- 
jes/Aula informática con Spectrum/ 
Programas, 


Núm 9 - 300 ptas. 
Spectrum — parlanchin/Juegos/Aula 
informática con Spectrum/Análisis 
Comercial 4/Pascal/Periféricos: Wa- 
fadrive/QL Magazine: EASEL lo mejor 
de PSION. Müsica con QL/Desplaza- 
miento Pixel a Pixel, aportación de 
lectores/Programas/Programer II. 


Nüm. 10 - 300 ptas. 

Discos: invesdisc 200/Juegos/Dos 
programas simultáneos/Protección 
del software/Conozca extremadura, 
consulte a su ordenador/Desensam- 
blador Z-80/Sofware educativo/QL 
Magazine: novedades Informat, Hoja 
de cálculo, Ajedrez/Construya su 
propio Joystick/Pascal/proaramas. 
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dor de textos. Teclas de función pro- 
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gramas 
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Actualidad, Spectrum 128/Cálculo 
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conocido/Código máquina/QL Ma- 
gazine: GRAPHIC QL. Juegos. Discos 
de 720 K/Un nuevo operativo/Progra- 
таз 


Nüm. 15 - 300 ptas. 
Actualidad/Spectrum 128/Un nuevo 
operalivo/Circulos _ redondos/Jue- 
gos/Utilidades: BETA-BASIC/QL Ma- 
gazine: Introducción al SUPER BA- 
SIC. Nuevas utilidades/Hardware: 
Puertas lógicas/Codigo máquina/ 
Programas. 
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Actualidad/Cinco | horas соп 
SCREENS/Hardware — práctico/Cál- 
culos de infinita precisión/Juegos/ 
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do con ratón. Archivos con Archive 
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estratégico 
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EDITORIAL 
¿ADIOS AL QL? 


La compra de Sinclair 
Research, Ltd. por Ams- 
trad Consumer Electro- 
nics cierra un largo ano de 
especulaciones sobre el 
futuro económico de esta 
empresa. Cuando la situa- 
ción parecía mejorar para 
Sinclair, que incluso pre- 
sentó un nuevo ordena- 
dor —el Spectrum 128— y 
había pagado diez de los 
quince millones de libras que adeudaba, Sir Clive acep- 
tóla oferta de Amstrad, cediendo los derechos de fabri- 
cación, distribución y venta de sus productos a su máxi- 
mo rival. 

De las primeras declaraciones de Alan Sugar, presi- 
dente de Amstrad se desprende que se potenciará el 
Spectrum, lanzándose en breve un modelo de 128 K con 
cassette incorporado y probablemente con un port de 
joystick. 

El QL ha salido mucho peor parado del acuerdo en- 
tre ambas empresas. Alan Sugar afirmó: «No veo mu- 
cho futuro en él. En su forma actual ha muerto». El pre- 
sidente de Amstrad, que debe ver más futuro en el Z-80 
y el CP/M, dejó abierto un pequeño resquicio a la espe- 
ranza al asegurar que sus ingenieros analizarían a fondo 
la máquina y quizás la resucitasen añadiéndole una uni- 
dad de discos de tres pulgadas y suprimiendo los micro- 
drives, 

Entre tanto, Amstrad se ha comprometido a mante- 
ner durante siete años un stock de piezas que garantice 
la asistencia técnica y los repuestos. 

Pero sea cual sea el futuro del QL, mientras sus 
usuarios manifiesten el mismo interés y dinamismo de 
siempre continuaremos apoyándoles desde estas pági- 
nas y ofreciéndoles nuestro habitual suplemento QL. 


TODOSPECTRUM 


ART 


STUDIO 


CUANDO EL SPECTRUM 
SE HACE ARTE 


asta que llegó el Macintosh 
de APPLE, las ventanas, 
iconos, ratones y menús 
concatenados (conocidos colec- 
tivamente como WIMP's) eran 
un lujo sólo al alcance de los 
compradores más solventes del 
mercado de ordenadores. Sin 
embargo, la popularización de 
este sencillo entorno de manejo 
ha hecho quela industria de soft- 
ware inunde el mercado con sis- 
temas orientados hacia el WIMP 
para micros tan diversos como el 
IBM PC y el SPECTRUM. 
RAINBIRD, una filial de BT, 
ha incluido en su repertorio un 
excelente paquete de gráficos ti- 
po WIMP llamado The Art Stu- 
dio, de Oxford Computer Publis- 
hing. En la publicidad de este 
programa se asegura que trans- 
forma el SPECTRUM en un Ma- 


cintosh, lo que resulta algo exa- 
gerado pero no demasiado aleja- 
do de la realidad. 

Hay una voluntad consciente 
en su presentación que sugiere 
que los disenadores se sintieron 
obligados a emular el Macpaint 
de APPLE. Sea verdad o no, el 
Art Studio, por 3.300 ptas. (pre- 
cio aproximado al cambio de 
14.95 libras), está tan cerca del 
Macintosh como es posible en 
un SPECTRUM, y supone un 
paso adelante respecto de los 
otros paquetes de diseno. 

Desgraciadamente, el Art Stu- 
dioincorporauna bestia negra: el 
LENSLOK. Para aquellos de vo- 
sotros que айп no os hayáis en- 
frentado con este verdadero reto 
a la paciencia, LENSLOK es un 
nuevo sistema de protección an- 
ti-pirata. En lugar de colores, có- 


digos y contreseñas, este inge- 
nioso sistema se utiliza alinean- 
do debedamente una lente espe- 
cial que permite al usuario leer 
un número y así introducir co- 
rrectamente el programa. A me- 
nudo son necesarios varios in- 
tentos para conseguirlo. 

La recompensa por superar 
con éxito el LENSLOK es una 
pantalla blanca con un menü en 
forma de barra de color azul, dis- 
puesto en la parte superior y un 
cursor en forma de flecha en el 


centro. Hay tres métodos de ma- 
nipular el cursor: las cuatro te- 
clas de flechas en el teclado del 
SPECTRUM, el joystick o el ra- 
tón AMX(de Advanced Memory 
Systems). 

Es preferible utilizar el ratón, 
porque, al contrario de los otros 
dos, permite dibujar las curvas 
con exactitud, describiendo un 
simple giro con la mano. En cam- 
bio, las curvas dibujadas con te- 
clas o joystick tienden a ser irre- 
gulares y toscas. 


DISENO 


La característica más deliciosa 
del Art Studio es el uso de menüs 
concatenados, un fenómeno re- 
lativamente nuevo en el SPEC- 
TRUM. Un menú de este tipo es 
una lista de funciones conteni- 
das bajo una misma cabecera. 
Por ejemplo, la barra del menú 
en la parte superior de la pantalla 
que aparece en la Art Studio 
contiene sólo 11 opciones. Sin 


embargo, al seleccionar una de 
ellas con el cursor, aparece en 
pantalla una ventana llena de op- 
ciones. 

Velocidad y flexibilidad son 
las dos mejores virtudes de los 
WIMP's. Además, para aque- 
llos que sufren de «teclado- 
bia», la posibilidad de seleccio- 
nar las opciones sin tener que 
pulsar teclas es una bendición. 
Esta sencillez de manejo se man- 
tiene a lo largo del programa 
Ilustraremos esto de una forma 


más clara examinando los conte- 
nidos de los menüs concatena- 
dos. 


MENUS 


Cuando la mayoría de la gente 
se encuentra con un paquete de 
diseño, lo que quiere hacer es di- 
bujar cosas. La primera puerta a 
la que llamar es, por tanto, el te- 
ma de dibujo, ya que contiene los 
ütiles básicos para dibujar. Com- 
ponen este menú, un lápiz, un 
spray y una brocha, a la vez que 
un editor de brochas y una orden 
llamada INVERSE 

Si seleccionamos la opción lá- 
piz, se accede a otro submenú 
que contiene un muestrario de 
16 yipos de lápices. Algunos son 
para el trabajo con líneas finas, 
mientras que otros son m de- 
cuados para sombrear o para dar 
ciertos efectos especiales. Cuan- 
do el comando INVERSE se en- 
cuentra en posición ON, el lápiz 
se transforma en una goma de 
borrar, con una posibilidad de se- 
lección de tamaños tan amplia 
com las opciones de los lápices. 

El bote de spray es similar al 
lápiz, excepto que sus 8 opciones 
se refieren más a la densidad que 
a la forma. Cuando se usa, este 
spray reproduce fiélmente el 
efecto de los verdaderos, incluso 
hasta el extremo de que si se 
mantiene el spray pulsado du- 
rante mucho tiempo la densidad 
del trazo aumenta. Se puede uti- 
lizar esta opción en conjunción 
con el ratón para perfeccionar el 
estilo, antes de intentar hacer 
cuadros para el comedor. En ter- 
cer lugar está la brocha. De nue- 
vo encontramos 16 opciones en- 
tre las que elegir, aunque esco- 
giendo el editor de brochas, es 
posible cambiar una o todas ellas 
para acoplarlas a las necesidades 
de cada momento. 

Para hacer más fácil la vida del 
artista, el Art Studio tiene un me- 
nú de Ampliación, que contiene 
funciones orientadas a ampliar 
una parte de la pantalla dos, cuatro 
y hasta ocho veces su tamaño nor- 


mal. Esta es una gran ventaja pa- 
ra los detallistas, ya que permite 
realizar cambios pixel a pixel. 

Las formas y estructuras son 
las principales preocupaciones 
del dibujante, la precisión y la 
claridad lo son del diseñador téc- 
nico. Para acomodarse a tales ne- 
cesidades el Art Studio tiene un 
menú de formas que contiene 
utilidades que permiten qué de- 
terminadas formas geométricas 
sean dibujadas simple y rápida- 
mente. 

Círculos, rectángulos, triángu- 
los y rayos pueden ser trazados 
sin necesidad de tener que recu- 
rrir a las teclas del SPECTRUM. 
Los círculos son especialmente 
fáciles de dibujar, usando una 
técnica muy similar a la utilizada 
en otros sistemas más costosos; 
primero, el centro se define pre- 
sionando el ratón (tecla o joys- 
tick), y después la circunferencia 
se crea escogiendo un punto de 
ésta. El menú de formas permite 
ampliar y reducir las figuras has- 
ta el tamaño deseado. Esto es es- 
pecialmente útil para experi- 
mentar con los tamaños de los 
circulos. Para formas con lados 
rectos, hay dos rápida funciones 
que aseguran perfectas líneas 
verticales y horizontales. 

Cuando los programadores se 
decidieron a crear un paquete de 
diseño g о que se pareciera al 
Macpaint, les interesó especial- 
mente emular sus opciones de 
coloreado y rellenado de formas 
cerradas. Por tanto, no es sor- 
prendente que dichas opciones 
del Art Studio, sean casi idénti- 
cas a las del Macpaint. Para asi- 
milar lo que en el APPLE se lla- 
man texturas O calidades sin 
mezclarlo con otros tipos de 
sombreado, el Art Studio tiene 3 
formas de rellenado y un editor 
texturas. 

Por supuesto, todas las funcio- 
nes de rellenado se encuentran 
en un menü de llenado bastante 
completo. Seleccionando el re- 
llenado sólido o liso, el primero 
del menú, se transforma la flecha 
del cursor en un rodillo de pintu- 


rà, el cual, cuando es colocado en 
una figura cerrada, la rellena con 
el color de tinta que se esté usan- 
do, de forma muy rápida. 

Si todo te parece familiar en el 
rellenado de color liso, espera a 
entrar en el relleno a base de en- 
tramados. Escondidas bajo esta 
opción se encuentran 32 diferen- 
tes tramas al estilo del Macpaint 
(64 si también contamos las in- 
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versas), cada una de estas puede 
ser aplicada a cualquier superfi- 
cie en la pantalla. La aplicación 
de tales entramados se realiza en 
dos fases: primero, se llena la su- 
perficie con el color de la tinta y 
luego el entramado se estampa 
sobre todos los pixel afectados. 

Aunque pudiera parecer lento, 
el uso de tramas es extremada- 
mente rápido, al igual que la op- 


ción deshacer (undo), que per- 
mite que el ültimo comando eje- 
cutado pueda ser modificado. Si 
por ejemplo, se ha sombreado 
una superficie y no quedamos 
muy satisfechos con el resultado, 
este comando nos lleva de nuevo 
al estado original. Hay también 
una textura de cambio de color 
(wash) en el menü de rellenado 
que realmente no estal rellenado 


en el más estricto sentido de la 
palabra. En vez de colorear o 
sombrear áreas o superficies va- 
cías, esta opción permite aplicar 
un modelo sólo a determinados 
pixels a los que se les ha cambia- 
do el color de tinta. Hay muchas 
aplicaciones para la opción 
«wash», pero una de las más efec- 
tivas, es el sombreado de un tex- 
to. Se puede remarcar una parte 
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de un texto tiniéndolo con 
cualquiera de las diferentes tra- 
mas. 

El sombreado en blanco y ne- 
gro puede producir interesantes 
efectos de penumbra si se usa co- 
rrectamente. Por otro lado, para 
disenos más vistosos, se pueden 
cambiar los colores de acuerdo 
con un menú de atributos. Aquí 
es donde encontramos todos los 
colores normales del Spectrum, 
accediendo a ellos de forma na- 
tural desde el teclado. 

Al igual que la mayoria de los 
paquetes gráficos para el SPEC- 
TRUM el Art Studio está afecta- 
do por las pobres posibilidades 
de manejo del color en el apara- 
to. Aparte de presentar un aspec- 
to pálido generalmente, los colo- 
res «chocan» entre sí, producien- 
do feos e involuntarios cuadra- 
dos еп la pantalla. La causa de es- 
to es la incapacidad del ordena- 
dor para manejar más de dos co- 
lores (uno para el papel y otro pa- 
ra la tinta) por caracter. Pueden 
resultar remedios ütiles, reducir 
el dibujo a dos colores o usar una 
gran extensión del mismo color, 
haciendo que sea imposible que 
dos colores de papel o tinta en- 
tren en contacto. La primera vez 
que se usa el Macpaint, resulta 
asomori la forma en que los 
dibujos pueden quedar enmarca- 
dos y luego ser colocados en otra 
parte de la pantalla. Para muchos 
esto sólo es posible gracias a la 
presentación del mapa de bits del 
Macintosh. Por esto, nuestra sor- 
presa fue mayúscula cuando vi- 
mos el Art Studio realizando la 
misma tarea. La capacidad para 
realizar tales operaciones consti- 
tuye uno de los rasgos más nota- 
bles del Art Studio, Pero esto es 
sólo una parte de lo que se puede 
conseguir dentro del menú de 
ventanas. 

Las funciones de «cortar y pe- 
gar» y «cortar, eliminar y pegar» 
son similares pero con útiles di- 
ferenci La primera copia el 
contenido de una ventana y lue- 
go lo coloca donde queramos, 
dejando intacto el modelo origi- 


nal, mientras que la segunda, lo 
borra. Se pueden hacer varias co- 
pias de una ventana, escogiendo 
la opción múltiple del citado me- 
nü de ventanas. 

Las ventanas son flexibles has- 
ta el punto de cambiar de tama- 
no. Todas las ventanas, sin im- 
portar como sean de grandes o 
pequeñas, pueden ser modifica- 
das de tamaño. Pueden ser au- 
mentadas, reducidas, ensancha 
das o estrechadas. La modifi 
ción tiene lugar en dos fases, al 
igual que la opción de entrama- 


do. Primero, la ventana se modi- 
fica en dirección vertical en un 
buffer interno, y después en di- 
rección horizontal en pantalla. 
Esto va seguido de la ejecución 
en pantalla del primer paso. 
Cuando se reduce una ventana se 
pierden los detalles pequeños y 
el mencionado choque de colo- 
res se acentúa aún más. Por lo 
tanto, se consiguen los mejores 
resultados cuando se reduce una 
ventana que contiene sólo dos 
colores. Por último, indicar que 
las ventanas también pueden ser 


ART STUDIO 


reproducidas a la inversa (como 
si se reflejaran en un espejo), du- 
plicarlas o rotarlas. 


DOCUMENTACION 


Un programa tan complicado 
como el Art Studio requiere un 
complejo manual que guíe al 
usuario a través de los diferentes 
menús. RAINBIRD no se ha dis- 
tinguido especialmente en este 
punto, produciendo un manual 


tan profesional como el progra- 
ma al que acompaña. El folleto, 
de 58 páginas, está bien escrito y 
aclarado desde el principio hasta 
el final, concluyendo con un sim- 
ple, pero no por ello menos ütil, 
ejemplo de cómo hacer un dibu- 
jo. También se comenta en el 
manual un programa que permi- 
te a los compradores hacer una 
versión personal del Art Studio, 
copiando el programa en una 
cinta virgen. 

Se personaliza la cinta en el 
sentido de que contiene paráme- 


tros específicos para determina- 
dos interfaces e impresoras. El 
Art Studio puede soportar dieci- 
siete interfaces Centronics y 
RS232, así es difícil que alguien 
no pueda hacer una copia en pa- 
pel, salvo que, por supuesto no 
tenga impresora. 


PRECIOS 


En principio el Art Studio es 
un programa en cassette que 
cuesta 14,95 libras, en Inglaterra, 
pero RAINBIRD también tiene 
una versión para los usuarios del 
microdrive de Sinclair y del In- 
terface para discos de Kempston. 
No hay cambios en ellas, tan só- 
lo, la adición de un programa que 
comprime las pantallas, una op- 
ción de arcos en el menú de for- 
mas, varios comandos de manejo 
de archivos y dos programas de 
instalación para microdrive y dis- 
co. El Art Studio no será capaz de 
hacer uso del compresor de pan- 
tallas, debido a la gran cantidad 
de memoria que esto requiere. 

Sin embargo, RAINBIRD 
venderá la versión ampliada al 
precio reducido de 12 libras a los 
usuarios de A.S. que habiéndolo 
comprado ya, decidan elevar su 
equipo al microdrive o al disco. 


CONCLUSION 


El Art Studio es actualmente, 
uno de los más complejos y po- 
tentes paquetes de diseño que se 
pueden encontrar hoy para el 
SPECTRUM. Su mejor y más 
provechosa utilización proviene 
del diseño de pantallas de pre- 
sentación para juegos comercia- 
les. Aunque no se pueden repro- 
ducir las desbordantes imágenes 
de Dali, o la encendida pasión de 
Van Gogh, es posible producir 
pantallas de cabecera a nivel pro- 
fesional en la medida de tu pro- 
pio talento artístico. 


Joaquín Mateos 


Quien haya trabajado con gráficos en el Spectrum y 


haya tenido la necesidad de mantener varias pantallas 
en memoria a un mismo tiempo, se habrá dado cuenta 
de la cantidad de bytes que se «comen». Casi 7K por 
pantalla, que hacen que, aün disponiendo de un 48K, 
tras almacenar unas cuantas, nos quedemos sin sitio 


para otra cosa. 


as siguientes rutinas intentan 
paliar este problema, compri- 
miendo las pantallas de forma 
que ocupen menos memoria. Para 
ello aprovechan dos características 
que suelen aparecer en todas ellas: 

La primera es que, por norma ge- 
neral, en toda pantalla existen zonas 
más o menosextensas en las que só- 
lo hay tinta, sólo hay papel o se re- 
pite un atributo о una estructura 
cualquiera. Debido a esto, hay zo- 
nas del fichero de presentación vi- 
sual en las que se repite un mismo 
byte un nümero determinado de ve- 
ces. 

La segunda característica de la 
que vamos a hacer uso es que, por 
complicado que sea el dibujo, prác- 
ticamente siempre hay algün byte 
que noes utilizado. Hemos compro- 
bado esto en bastantes pantallas (e 
incluso programa en máquina o la 
propia ROM) y siempre ha sido así. 


Sistema de codificación 


La rutina COMPRF (Listado 1) es 
la encargada de COMPRimir las 
Pantallas. Se localiza junto con 
DCMPRP, en el buffer de la ZX- 
Printer, por lo que no debe utilizar- 
se el canal «P» mientras las usemos. 
Debe ser introducida con la direc- 
ción de memoria donde ha de alma- 
cenarse la pantalla comprimida en 
el par HL; en el listado es 50.000 
(línea 130), pero puede modificarse 
siempre que quede por encima de la 
RAMTOP (un valor aconsejable pa- 
ra los usuarios de Spectrum 16K 
puede ser 26.000). 

Tras almacenar HL en el stack y 
ponera cero del registro A, se ejecu- 
ta la subrutina LOCPRF, encargada 


de LOCalizar el nümero que será 
utilizado como PReFijo para codifi- 
car las zonas de pantalla en las que 
un byte se repita 3 o más veces. Para 
esto utilizamos la instrucción CPIR, 
que a lasalida dará Z activado sólo si 
el valor que carga A ha sido lacaliza- 
do en la pantalla. Si no se ha encon- 
trado, este es el nümero que necesi- 
tamos, por lo que se salta a 
COMPRI. Pero si se encuentra, da- 
mos un nuevo valor a A y serepite el 
proceso, a no se que À vuelvaa valer 
cero, lo que querría decir que ya se 
ha probado con todos los valores po- 
sibles, por lo que se saldría con un 
error «Out of DATA» para indicar 
que no es posible codificar esa pan- 
talla (en la práctica sólo sucedió esto 
cuando se había preparado especifi- 
camente la pantalla para que ocu- 
rriera así). 

Una vez pasada esta fase, se alma- 
cena como primer byte del fichero 
comprimido el nümero que va a uti- 
lizarse como prefijo. Después, co- 
mienza a copiarse el fichero de pan- 
talla en la nueva localidad, compro- 
bando si un valor se repite dos veces 
y llamando en ese caso a CPREP. 
Además, se comprueba si HL vale 
cero, loque indicaría que hemos da- 
do una dirección de destino dema- 
siado alta, y asi es así, da error «Out 
of memory» (Para el 16K deberá 
sustituirse el XOR A de la línea 420 
por LD A,128). También se com- 
prueba si el byte más significativo de 
IX es 5Вһех, lo cual significaría que 
se ha codificado la totalidad de la 
pantalla y por lo tanto el fin de la ru- 
tina, por lo que se retorna dando a 
BC el valor de HL (dirección del byte 
que sigue al fin de la pantalla com- 
primida). Para conseguir cargar en 
el acumulador el registro I (de IX) 


no nos ha quedado más remedio 
que recurrir a un pequeño truco: 
utilizar la instrucción equivalente 
en el par HL antecedida de DDhex, 
lo que, debido a la arquitectura usa- 
da en el X-80 para la ampliación del 
juego de instrucciones, equivale a 
LD A,I (I de IX y noel registro de in- 
terrupciones). 

Por último, CPREP ComPrar los 
sucesivos byres con А y REPite in- 
crementando B hasta que alguno 
sea distinto o B llegue a cero (—256), 
en cuyo caso almacena el prefijo se- 
guido del nümero de veces que se 
repite el valor de A, y retorna para 
que A sea almacenado y continüe 
COMPR. 


Expandiendo las pantallas 
comprimidas 


La rutina DCPRMP (Listado 2), 
localizada tras la anterior, permite 
DesCoMPRimir las Pantallas que 
hubieran sido codificadas. A la de- 
recha, HL debe contener la direc- 


ción de inicio del fichero que quera- 
mos descomprimir (50.000 en el lis- 
| tado). El funcionamiento es senci- 
llo: se carga en el registro C el prefi- 
jo y se comprueba si los siguientes 
nümeros del fichero son iguales а 
éste. Si no son iguales, se pasan a 
pantalla normalmente, pero, si algu- 
no lo es, se salta а DCMPR3, donde 
se cargan los dos valores siguientes 
y, mediante un bucle, se realiza la 
expansión. En el bucle principal se 
comprueba el registro H, para retor- 
nar cuando el valor 5Bhex lo indi- 
que. 


Nuevo formato 


Así pues, el principio de un fiche- 
ro «comprimido» podría ser: 

251, 13, 50, 251, 100, 0, 251, 0, 1,... 

Lo que quiere decir que el núme- 
то usado como prefijo es el 251, por 
lo que al descomprimirlo quedaría 
primero un 13 y un 50; después ve- 
mos que aparece el prefijo, por lo 
quel siguiente nümero es la canti- 


cm сыы 


1 REM Carg. COMPRESOR FANT. 
20 FRINT FLASH 1:"Fokeando"*^ 
30 FOR N-O ТО 15 

40 LET С=О 

50 READ A$ 

60 FOR М-1 TO 14 STEP 2 

70 LET L=FN DtAà$t«M TO M+1)) 

BO FOKE 232906+NX7+INT (M/2).L 


THEN PRINT FLASH 
t EN LINEA ";200*N*10;" 


130 NEXT М 


TIAFBC20",696 
D23DD7C",813 
270 DATA "FESE2OE7ESC1CO", 1231 
280 DATA "DDBEO2C00602DD"”,834 
23DD23042805DD",561 
ЖОО DATA "BEO128F6712370",.737 
310 DATA "23092150031100",561 
4FESBC8".B844 


DEF ЕМ F(H£)-CODE Н%-48-7Ұ( 
H$564) 
O DEF FN D(H$)-FN P(H$(1))X1£ 
ЖЕМ ЕСНФ (2) 5 


dad de veces que se repiteel que vie- 
ne a continuación, es decir que tras 
el 50 vendrían 100 ceros. Seguiría 
un 10 y de nuevo 256 (=0) unos. 

En este ejemplo el ahorro de me- 
moria sería grande: 10 bytes frente a 
359, pero en pantallas de carga nor- 
males suele variar entre un 25% en 
las más complejas y un 60 o 709» en 
las sencillitas. Esto no es nada des- 
preciable si tenemos en cuenta que 
un 25% de una pantalla son casi 1.7K. 
de memoria, lo cual supera ampli 
mente los 110 bytes que ocupan las 
dos rutinas juntas. 


Cargador Basic 


Quienes no dispongan de ensam- 
blador ni de conocimientos de len- 


DesCoMPRimir Pantalla 


PENTR: 


HL-INICIO FICHERO 


ORG 22375 
LD  HL,50000 
DCMPRP 
LD DE.16784 
LD C. (HES 
DCMPR1 
INC HL 
DCMFRZ 
LD 
CF 
RET 
LD 
СР 
JR 
INC 
LDI 
JR — DCMFR2 
DCMFRZ 
INC HL 
LD в, (HL) 
INC HL 
LD а, (HL) 
1070 DCMPR4 
1080 LD (DE),A 
1090 INC DE 
1100 DINZ DCMFRA 
1110 JR — DCMPR1 


guaje máquina no deben desespe- 
rar, también pueden utilizar estas 
rutinas. Para ello deberán cargar el 
programa BASIC del Listado 3 al pie 
de la letra y ejecutarlo. 

En caso de que sea detectado al- 
gún error en las líneas DATA, en 
cuyo caso se dará un mensaje in 
cando la línea en que esta, habrá 
que corregirlo y ejecutar de nuevo el 
programa. Cuando no haya'errores, 
podrá ser salvado a cinta en forma 
de bytes con SAVE «nombre» CO- 
DE 23296,110, y cargarlo posterior- 
mente con LOAD * ” CODE. 

Para comprimir la pantallal en 
memoria debe hacerse LET L=USR 
23296, lo que la codificaría dejando 
en la variable L la dirección del byte 
posterior al final del fichero. Esto la 
almacenará a partir de la dirección 
50.000, por lo que podemos averi- 
guar la longitud de la pantalla com- 
primida haciendo PRINT L—50000. 
Si queremos situar el fichero com- 
primido en un lugar determinado de 
la memoria (muy aconsejable que 
sea encima de RAMTOP) debere- 
mos pokear la dirección escogida 
como sigue: 


LET H=INT (dirección/256) 
POKE 23297, dirección—H+256: 
POKE 23298,H 


Por ejemplo, para un Spectrum 
de 16K, si queremos que comience a 
cargar a partir de la dirección 26000, 
habrá que hacer: 


CLEAR . 25999; 
INT(26000/256): 
POKE 23297,26000--Н»256: PO- 
KE 23298,H 


LET H= 


Si acabamos de ejecutar la rutina 
para otra pantalla, podemos susti- 
tuir dirección por la variable L, con 
lo cual se almacena inmediatamen- 
te después de la anterior. 

Para expandir un fichero cargado 
anteriormente habrá que pokear la 
dirección de inicio (sólo si es distin- 
ta de 50000) en 23376 y 23377 como 
anteriormente, y hacer RANDOMI- 
ZE USR 23375. 


LISTADO 1 


Im 


¿ENTR 


COMPRE: 


LOCCOD 


COMPR! 


COMFR2 


COMPR? 


CPREP 


) CPREP1 


СРКЕР? 


Patatita soft 


COMPRimir Pantalla 


HL=DESTINO 


FUSH 
XOR 


LD 
LD 
CPIR 
JR 
DEC 
JR 


HL, 50000 


HL 
^ 


HL, 16384 
ВС, 2912 


NZ, СОМЕКІ 
а 
NZ,LOCCOD 


"E Dut of DATA" 


RST 
DEFB 


LD 
FOF 
LD 
INC 
LD 


LD 
EÊ 
CALL 
LD 
INC 
XOR 
СР 
JR 


е 
13 


IX, 16384 
HL 
(HL). A 
HL 

с.а 


А, (DO 
(IX+1) 
Z,CPREP 
(HL), A 

HL 

^ 

H 
NZ,CUMFRZ 


"4 Dut of memory" 


RST 
DEFE 


INC 
DEFE 
LD 
CP 
JR 
FUSH 
POP 
RET 


СР 
ВЕТ 
LD 

INC 


INC 
INC 
JR 
ЕР 
JR 


LD 
INC 
LD 
INC 
RET 


8 
3 


IX 

“DD 

A.H 

258 
NZ,CUMPR2 
HL 

BC 


(IX+2) 
NZ 
Br 
IX 


IX 

B 
Z,CPREP2 
(IX+1) 
Z,CPREP1 


Paseo de Gracia, 11 (52452) 


EO: С.,:29:42 ЕРЕ 


IW 1.1 (93) 318 24 53 
HESS 08007 Barcelona 
s 


I/F JOYSTICK 2.500 


— Con paro de imagen, para que puedas 
seguir el juego, paso a paso. 


JOYSTICK + Interface 
incorporado 3.750 


ALIMENTACION 
ININTERRUMPIDA 9.750 


— Para que los cortes de suministro 
eléctrico no te dejena oscuras, 1'30 h. de 
autonomía. 


SITI-PRINTER 4.480 


— Aprovecha tu impresora al cien por cien. 
— Listados de hasta 132 columnas, recibos, impresos, formularios, etc... 


— Utiliza la base de datos SITI. —————————— P 
TIENDA AL PUBLICO EN BARCELONA і homes 
Dirección 
PEDIDOS POR CORREO О TELEFONO 


Envios contra reembolso a toda Espana Población 
200ptas. gastos de envio Pedido 
En tu domicilio en 3-4 dias 


Enviar a: PIN SOFT, S.A. - P? de Gracia, 11 - Esc. C, 2^ 4* - 08007 Barcelona 


SWEEVOS 


WORLD 


n esta ocasión voy a contar la 

historia de los POKEs al mis- 

mo tiempo que los busco, con 
lo cual de momento lo ünico que 
puedo decir es que aparentemente 
el programa se carga sin una protec- 
ción excesivamente complicada. 
Todo parecen ser bloques a veloci- 
dad normal y sin cabecera. 

El primer paso será rastrear el 
proceso de carga. Cargo el primer 
bloque y lo paro. Nada se opone a 
ello. El listado del cargador no apa- 
rece, pero es debido a que papel y 
tinta Son del mismo color. Después 
de arreglar esto, podemos ver lo que 
hace: carga de la cinta una pantalla y 
dos bloques con CODE, y por últi- 
mo lanza el programa en la direc- 
ción 24800. Anulo esto último y de- 
jo que se ejecute. La carga se produ- 
ce sin problemas acabando con el 
informe 0 OK. Pruebo a lanzarlo en 
su dirección y el juego comienza co- 
rrectamente. No tiene ningün truco. 
Además parece que durante la carga 
deja sitio suficiente para el buffer 
del microdrive, con lo que, teóri 
mente, la operación de adaptación 
no debe dar ningün problema. Pasa- 
mos a averiguar la longitud y direc- 
ciones de los dos bloques en que es- 
ta almacenando el juego. Esto se 
puede hacer de muchas maneras. 
Yo utilizo uno de los múltiples pro- 
gramas para leer cabeceras. El resul- 
tado es que el primer bloque empie- 


Este mes nos enfrentamos 
en nuestra guía de 
hackers con el programa 
SWEEVO'S WORLD. 
Está realizado en tres 
dimensiones al estilo de 
los dos primeros 
programas en que 
ULTIMATE utilizó la 
técnica filmation: 
KNIGHT LORE y 
ALIEN 8. 


za еп la dirección 64400 y tiene 1085 
bytes, y el segundo empieza en 
24800 y tiene 33456 bytes. No hay 
ningún problema, para pasarlo a mi- 
crodrive. Incluso parece que queda 
en medio, en la dirección 58256, su- 
ficiente espacio para el monitor. 
Para empezar a analizar vamos a 
la dirección en que se lanza el pro- 
grama. Nos encontramos con un 
salto a 4 9CD2. Aquí vemos que 
modifica algunas variables del siste- 
ma BASIC refiriéndolas al registro 
TY. Esto parece indicar que se va a 
apoyar en la ROM para algunas fun- 
ciones. En principio su supone que 
lo hará para la impresión de mensa- 


jes, puesto que ha abierto el canal 1. 
Por lo demás, aquí la zona de me- 
moria comprendida entre A A708 y 
# AB07, utilizando para ello el re- 
gistro IX. Al final llama a una subru- 
tina en la dirección # 908B, pero 
más que eso debe ser el programa 
principal, ya que si volviera la si- 
guiente instrucción es un salto a la 
dirección # 0000 que destruirá el 
juego. 

Pasamos а la dirección # 908B. 
Casi al principio nos encontramos 
con un sugestivo LD A, 405. Debe 
ser el número de vidas, pero antes 
de comprobarlo vamos a echar un 
vistazo alo que hay detrás. Se inicia- 
lizan un montón de variables, se Па- 
ma a algunas subrutinas y se cierra 
un bucle sobre la dirección 4 90E3 
despue$s de comprobar el dato con- 
tenido en # 6176 y si están pulsadas 
simultáneamente las teclas SYM- 
BOL-SIFT y 5. Esto sugiere muchas 
cosas y, aunque es posible que algu- 
na no sea cierta, vamos a contarlas. 
Todo lo que hay entre las direccio- 
nes # 908B y # 90E3 debe corres- 
ponder con el menú que aparece al 
principio de la partida, en el que se 
nos da a elegir entre los cuatro nive- 
les planeta. La dirección # 6176 de- 
becontrolar si nos han matado defi- 
nitivamente y hay que empezar una 
nueva partida. Las instrucciones de- 
ben estarequivocadas cuando dicen 
que para el juego hay que pulsar SS 
+ 0, ya que todo indica que se hace 


ا 
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con + 5. Por último, al principio 
de lo que se supone el bucle de jue- 
go, hay un bucle en el que se espera 
la llegada de tres interrupciones. Es 
de suponer que modificando este 
valor se podrá variar la velocidad del 
juego. 

Para tratar de comprobar todo es- 
to realizamos algunas modificacio- 
nes y lanzamos el programa. Incre- 
mento lo que parece el número de 
vidas y aumento la cantidad de inte- 
rrupciones que debe esperar. Parece 
que hemos acertado, el juego es más 
lento, tenemos más vidas y pulsan- 
do SS + 5 se para. 

Volvemos a cargar el programa y 
continuamos investigando. Sabien- 
do que en la dirección # 611A se 
guardan las vidas que nos quedan, 
no debemos tener problemas para 
encontrar el POKE de vidas infini- 


os 
КЕШ 


tas. Buscamos cuántas veceses utili- 
zada esta variable y la encontramos 
cinco veces. Una para inicializarla al 
principio de la partida, otra para es- 
cribirla en la pantalla, otra para 
comprobar si nos quedan más vidas 
y dos más para decrementarla (una 
para leer el antiguo valor y otra para 
poner el nuevo). Con esto ya tene- 
mosf las vidas infinitas, basta con 
poner en la dirección # 81C3 el dato 
# AT (sustituimos la instrucción 
DEC A por AND A). Otra cosa que 
también se supone aunque todavía 
no la he comprobado es que en la di- 
rección ## 6119 se guarda el estado 
del robot. Durante la inicialización 
se le el valor 4 y se maneja con- 
juntamente con el número de vidas. 
Para evitar que decrezca probamos 
a poner en # 835A un # B6 (cambiar 
DEC (HL) рог OR (НІ.)) 


Acabo de probar los dos POKEs 
anteriores y funcionan bien. Con 
ellos ya se puede abordar el juego 
con bastantes probabilidades de lle- 
gar al final en la primera partid: 
ro todavía es demasiado difí y 
nuestro análisis no debe de quedar 
aquí. El próximo paso será tratar de 
averiguar qué rutinas son las encar- 
gadas de controlar los gráficos y del 
movimiento de los objetos. Tam- 
bién intentaremos descubrir cómo 
está codificado todo el juego. 

Antes de entrar en el bucle de jue- 
go hay tres llamadas a subrutinas 
que en teoría se deben escargar de 
inicializar variables y del menú de 
presentación. Pruebo a parar el pro- 
grama después de la primera llama- 
da para comprobar qué cambios ha 
habido pero no es posible volver al 
monitor después de la rutina. La zo- 
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na de memoria donde está el moni- 
tor debe ser utilizada para algo. Bus- 
co cuándo se refiere a ella y me en- 
cuentro con que se usa para la crea- 
ción de los gráficos. Tiene exacta- 
mente 6K, lo justo para almacenar 
toda la pantalla sin atributos. Todos 
los gráficos se montan en esta zona 
y luego llamando a la rutina 4 747B 
se vuelcan sobre la pantalla. Con es- 
ta forma de actuar consiguen varias 
ventajas. La organización de la me- 
moria a la hora de pintar un gráfico 
es la lógica en la que a continuación 
de la representación de una línea de 
pantalla se encuentra la correspon- 
diente a la línea inmediatamente in- 
ferior. De esta forma su utilización 
es bastante más sencilla y solamente 
hay que tener cuidado a la hora de 
volcar sobre pantalla. Por otra parte, 
se pueden despreocupar del proble- 
ma de que al borrar un gráfico para 
ponerlo en otra posición se pueda 
ver un momento en que no está en 
pantalla ninguno de los dos. A cam- 
bio, el mover 6K de memoria cada 
vez que se modifica algo requiere 
un tiempo, pero está bien resuelto 
para que sea lo más rápido posible y 
no frene el juego. 

Toda esta instrucción, aunque no 


nos permita directamente encontrar 
ningún POKE, seguramente será 
muy útil para poder comprender el 
resto del programa. Para empezar 
descubrimos que la primera de las 
tres llamadas (4 7B0D) se encarga 
de pintar todos los gráficos fijos en 
una pantalla. Justo delante hay un 
tentador LD A, # FE que no puedo 


T 5 
BROUNIES 


resistirme a cambiar. Lanzo el pro- 
grama y el menü de presentación 
aparece sobre una de las pantallas 
del juego. Con esto ya podemos in- 
tentar escribir una rutina que nos 
muestre todas las habitaciones del 
planeta. El único problema es en 
qué dirección colocarla. El buffer de 
la impresora no nos sirve por que es 
usado por el programa, tampoco po- 
demos destruir las variables del sis- 
tema BASIC, así que de momento 
utilizaremos la zona correspondien- 
teds al programa en BASIC, aunque 
no tenemos demasiado sitio. 

La primera prueba para ver todas 
las pantallas ha resultado un fraca- 
so. Nada más lanzar el programa se 
queda colgado. Habrá que seguir in- 
vestigando lo que ocurre en la direc- 
ción 4+7B0D. Las pantallas están co- 
dificadas a partir de la dirección # 
6278 y para ahorrar memoria cada 
una sólo ocupa los bytes necesarios 
para su definición. Las pantallas que 
no existen (los huecos del mapa) no 
gastan ni un буге. El primer dato de 
cada pantalla indica el nümero de 
bytes que utiliza su definición, el se- 
gundo es el número de pantallas. El 
mapa seráorganizado en cuatro blo- 
ques de 8*8 pantallas, en total 256 
posibles habitaciones, pero no todas 
existen. Algunas son utilizadas para 


AAA! 


POKE 33219,167 
POKE 37880,X 
POKE 34236,X 
POKE 37099,X 
POKE 33626,182 
POKE 35353,142 
POKE 36215201 
POKE 30263,33 
POKE 36324,0 
POKE 32161,24 
POKE 32219,142 
POKE 32034,134 
POKE 32007,142 
POKE 32874,33 
POKE 35728,110 
POKE 35786,0 
POKE 30238,24 
POKE 33437,104 
POKE 36089,176 
POKE 33442,104 


TABLA I 


Vidas infinitas 

Número de vidas 

Tiempo para cambiar objeto 

Velocidad 

No cambia de estado 

No nos matan los enemigos 

Tablas quietas 

Quita las tablas 

Quita los dedos 

Evita muerte parcial por el dedo 

Evita muerte total por el dedo 

Evita muerte parcial por los objetos fijos 
Evita muerte total por los objetosd fijos 

Sigue teniendo los objetos cuando los deja 
Evita la destrucción de los objetos por el dedo 
Se puede matar los enemigos con cualquier objeto 
Transforma los muñecos del suelo en dedos 
Evita la muerte por la pesa pero te atrapa 
Evita quedar atrapado por la pesa 
Inmortalidad total 


PROGRAMA 1 
10 CLEAR 60000: LET n 
RESTORE 
30 FOR i 


at 


40 READ 


УМ Yy34 CODE а: 
FCI O) 


70 POKE nyd: LET nen4is LET өш 
m*de NEXT 3 

Bo IF а THEM NT "Error 
еп la lines "pit 

90 NEXT i 

100 LOAD ""SCREENS RANDOMIZE 


BFCIBSDA 


54 


los menús de principio y final del 
juego. El problema que tenía la ruti- 
na para imprimir todas las pantallas 
era que intentaba pintar las que no 
existen. Con esto ya estamos prepa- 
rados para escribir una nueva ver- 
sión que funciona perfectamente. 
La tenéis en el programa 1. 

Ya que estamos en ello vamos a 
seguir analizando cómo está codifi- 
cado el mapa. Para extraer la infor- 
mación de la tabla Пата a la direc- 
ción # 76A9, donde vemosf que el 
tercer byte tiene la información de 
las cuatro posibles salidas laterales 
de la habitación. Por eliminación el 
cuarto буге debe contener el color 
del fondo y los gráficos del fondo. El 
bit 7 de este byte indica si la habita- 
ción ha sido recorrida o no para po- 
der calcular el tanto por ciento de 
aventura. Estos 4 byres son los úni- 
cos indispensables (corresponde- 
rían a una habitación vacía). Los de- 
más se destinan a indicar la existen- 
cia de objetos. Cada uno de estos se 
codifica en dos буге en los que el 
primero indica la posición dentro 
del mapa 8*8 en que está dividida 
cada habitación, y el segundo el tipo 
de objeto de que se trata. De esta 
forma la cantidad de memoria nece- 
saria para representar las pantallas 
es bastante pequeña y se puede in- 
cluir gran nümero de ellas, todas 
distintas. 

En este punto sí 
guir con el análisis metódico debe- 
ríamos tratar de averiguar cómo es- 
tán codificados los objetos no fijos 
(bota, lata, oso), las trampas móviles 
(dedo, etc.) y los enemigos, sin em- 
bargo, vamos a intentar una nueva 
estrategia. Partiendo del punto en 
que se decrementan las vidas inten- 
taremos ir hacia atrás en el progra- 
ma hasta encontrar dónde se realiza 
el test de colisión con los objetos 
mortales. De esta forma se suele Пе- 
gar más rápidamente a los POKEs, 
pero se corre el riesgo de caeren un 
callejón sin salida y perder mucho 
tiempo. Además, no es muy aconse- 
jable utilizar esta técnica desde el 
principio, ya que en muchos casos 
Se actüa por intuición y para no 
equivocarse conviene tener una 
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idea de cuáles son las variables del 
sistema. 

El número del sistema se decre- 
menta A 81C3. Vamos un poco ha- 
cia atrás y nos encontramos con que 
la rutina empieza en A 81AF. Bus- 
camos las llamadas a esta dirección 
que hay en el programas y encontra- 
mos dos. Retrocediendo desde la 
primera y después de buscar qué sal- 
to relativo va a parar la dirección & 
834E encontramos lo que busca- 
mos, o por lo menos eso parece. Hay 
una llamada a la dirección #91A3 y 
después se testean varios bits de un 
dato referido como (1Х+13). En 
función de estos bits se realizan sal- 
tos que traen como resultado la pér- 
dida de una vida. 

Sin embargo, al mirar la rutina a 
la que llama nos encontramos con 
que no tiene nada que ver y selimita 
a la lectura del teclado o joystick se- 
gún corresponda. De todas formas, 


PROGRAMA 2 


10 


CLEAR 


25D21! 


216 
R71CDE 
1060 


"нууу 


нону 


PRINT " 
ЈР 


"0021909 


O11BOB2ZEFF 


gua 


1100 


OFENDE 


DATA 


DATA 


DTMMFIDODT 


vc 


2 7496E6D2ESO" 


DATA 


сә 


DAT 


"ат 


20091 


"уд 


АЕ 70850 


501663E 


62CD7BE74CD6 


720000 


DONOSTIA 


a 


i3CD74944 


ARBFIFDZ 


PROGRAMA 3 


BORDER О: PAPE! 0 
CLEAR 24799 

LOAD ""SCREEN£f 

PRINT АТ 3,0;: LOAD 
CODE 

PRINT AT 2.0:: LOAD "" 
CODE 


REM comienzo de lo poke: 
RANDOMIZE USR 2480 


vamos a comprobar para qué sirve 
cada uno de los saltos. Para ello, 
anularemoss uno de ellos cada vez y 
vemos frente a que somos inmorta- 
les. El primero de ellos se realiza 
después de testear el bit 5 y anulán- 
dolo conseguimos que las pesas no 
nos aplasten en su caída. Pero cuan- 
do nos caen encima, Sweevo queda 
atrapado bajo su peso con lo que si 
no encontramos otra solución será 
mejor que nos mate. El segundo sal- 
to corresponde al bit 2 y nos concede 
la inmortalidad contra todo lo que 
antes nos hacía perder una vida (ex- 
cepto la pesa). El tercer salto es con 
el bit 0 y elimina la muerte parcial 
Sin embargo, tiene el problema de 
que al acabar la partida nuestro hé- 
roe se pone a hacer tonterías y no se 
puede empezar de nuevo. Habrá 
que arreglar eso. El último salto pa- 
rece que controla cuando no cae- 
mos por un agujero en vista de los 
efectos que produce. Si retrocede- 
mos un poco nos encontramos con 
que la rutina empieza en # 827F y 
no existe en este trozo nada que 
pueda modificar alguno de estos 
bits. Por lo tanto, debe de estar en 
otro rutina o en la misma más ade- 


lante. Siguiendo por este camino 
nos encontramos con dos llamadas 
a las direcciones # 7E28 y # 7ED5 
Ahí seguirá nuestra büsqueda. En- 
tre otras cosas llama repetidas veces 
ala dirección 4% 7C75, y es aquí don- 
de manipula repetidas veces los da- 
tos que nos interesan. Después de 
analizarla se llega a la conclusión de 
que se encarga de controlar las coli- 
siones con los objetos fijos (en los 
que se incluye el resorte del ascen- 
sor y el muñeco que surge del suelo 
una vez que esta fuera. También se 
Пата а la dirección # 702В que ha- 
ce las mismas comprobaciones res- 
pecto a las trampas móviles. 


Todos los POKEs ütiles encontra- 
dos los tenéis en la tabla 1. Para 
usarlos teclear el programa 3 y po- 
ner a partir de la línea 100 los que 
queráis. Por ültimo lanzad el pro- 
grama y cargar la copia original. El 
programa 2 es un cargador con los 
POKEs más interesantes, que in- 
cluye tres funciones nuevas. Apre- 
tando la tecla 1 se consigue/natar a 
cualquier enemigo. La 2 nos permi- 
te abortar el programa y la 3 saca 
una copia de pantalla. 


Para acabar diremos que se trata 
de una pequeña maravilla de la pro- 
gramación. El programa está perfec- 
tamente estructurado, lo que facilita 
mucho nuestra tarea de búsqueda. 
Hay que destacar la curiosa forma 
en que maneja los bloques de datos 
correspondientes a los objetos mó- 
viles. Los tiene organizados en for- 
ma de listas al estilo del PASCAL 
Cada bloque tiene almacenado un 
puntero que señala al siguiente 
Existen dos listas de este tipo, una 
con la información de los objetos 
«vivos» y otra con los bloques que 
no se están utilizando y que están 
listos para la creación de cualquier 
objeto. También hay que decir que 
la memoria está bastante aprove- 
chada. Hubo problemas para locali- 
zar un sitio donde entrara el carga- 
dor con los POKEs. Finalmente, se 
cambió la posición de la pila 


MANUEL АКАМ, 


Software extremeño para la 
educación 


El ICE de la Universidad de 
Extremadura ha hecho püblicos 
los ganadores del I Concurso de 

Programas Didácticos para 
Ordenadores, dentro de los actos 
realizados con motivo de la VIIT 

Semana de Extremadura en la 
Escuela. El primer premio ha sido 
otorgado a un programa realizado 
por Santiago Hdez. Cano y Angel 
Prieto para alumnos de segunda 
etapa de EGB compuesto de tres 
bloques («Observa y comenta», 

«Pregunta lo que ignores» y 
«Demuestras lo que sabes») que 

facilitan el aprendizaje de la 

geografía extremeña. 


¡Amstrad Consumer Electronics adquiere 
Sinclair Research! 


Sir Clive Sinclair y Alan Sugar, presidentes 
respectivamente de SINCLAIR y AMSTRAD, 
comunicaban la sorprendente noticia en una rueda 
de prensa celebrada el lunes 7 de abril. 

Sugar anunció la adquisición de los derechos de los 
ordenadores Sinclair por un importe de cinco 
millones de libras. 


Novedades de Talent 


Talent Computer System ha. 
lanzado recientemente dos 
nuevos productos para el QL, 
The Assembler Workbench y 
«TechniQL». El primero es un 
conjunto de utilidades para la 
escritura edición y depuración 
de programas en lenguaje 
ensamblador, formado por tres 
módulos principales: editor de 


pantalla completa, ensamblador 


y monitor desensamblador. El 
segundo es un paquete de 
CAD complementario del 
famoso GraphiQL. TechniQL 
permite la creación de 
complejos dibujos de tamaño 
varias veces mayor que la 
pantalla. 


Domenech, Informática 
Educativa 


Preocupada por la inclusión de 
la informática en el mundo 
educativo, la empresa catalana 
Domenech ha lanzado un 
nuevo título editorial. 

Con el nombre de «La tortuga 
уа a la EGB», presenta un 
cuaderno de fichas y 
actividades para el ciclo medio 
y superior de EGB, que no 
dudamos alcanzará el objetivo 
de difundir el lenguaje Logo 
entre los escolares. 


Encuentros de QL con la arquitectura 


investronica 


Organizadas por Investrónica se han celebrado en EXPO-SITAP, 
Colegio Oficial de Arquitectura, los Primeros Encuentros de QL 
con la Arquitectura. 

Durante estas jornadas se realizaron demostraciones prácticas 
sobre la utilidad y nuevas posibilidades que ofrece la informática 
aplicada a la Arquitectura, 


RA-MA, nuevos títulos 


68000, GUIA DEL USUARIO de Lionel Fleetwood es 
uno de esos libros imprescindibles para cualquiera que 
desee comprender los misterios del lenguaje 
ensamblador, y pretenda aplicarlo a proyectos reales. 
Con un precio de 1.980 ptas. es una de las novedades que 
presenta en este trimestre la editorial RA-MA. 


Factores 
primos: 


Cuando leí las bases del concurso matemático de 
Todospectrum decidí participar, pensando que sería 
fácil escribir un programa BASIC que tardase pocas 
horas en hallar los factores primos (difícilmente se 
podía suponer que hubiera factores superiores a 
250000). En una semana tenía ya escrito el programa 
de la figura 1, que tardaba 35 minutos en hallar los 
dos primeros divisores del 79 y el 5651. Para no estar 
escrito en código máquina, era bastante rápido: Sólo 


hubiera tardado cerca de un айо en hacer la 
descomposición. А las cuatro horas, desesperado, 


apagué mi Spectrum. 


espues de varios días inten- 
D tando perfeccionar el progra- 

ma sin conseguir mejoras sus- 
tanciales, me decidí por el código 
máquina. Primero fue una subruti- 
na que eliminaba como posibles fac- 
tores aquellos nümeros que fueran 
mültiplos de los 53 primeros nüme- 
ros primos, y también está en el 


«programa definitivo. Con esto hallé 


el tercer factor, el 327979. 

Aún así no bastaba, tuve que es- 
cribir entonces en código máquina 
las rutinas más importantes, inten- 
tando reducir en lo posible las vuel- 
tas al BASIC. Conseguí después de 
varios días, un programa capaz de 
manejar los números en binario, 
con un divisor de hasta 3 bytes, y 
que sólo necesitaba volver al BASIC 
al encontrar un factor o al alcanzar 
la raíz cuadrada del dividendo, mo- 
mento en el programa debe termi- 
nar, lógicamente. Pero tras varias 
horas de trabajo, el programa seña- 


laba que no valía con tres bytes: El 
siguiente factor estaba por encima 
de 16777215 y había que introducir 
la posibilidad de trabajar con 4 by- 
tes. Rápidamente me puse manos a 
la obra y dejé el programa como se 
ve en los listados de la figura 2. 

Este programa dio, finalmente, 
los resultados esperados (79, 5651, 
327979, 82347247 y 1947309701) en 
la noche del día 14 al 15 de enero, 
día en que se cerraba el plazo. 

Como se ve si se intenta realizar los 
listados, tuve que sacrificar la es- 
tructuración del programa en favor 
de la velocidad; se hace, por tanto, 
necesario, explicar el funciona- 
miento del programa: 

— Una vez comprobado que el 
2 no es di r del nümero, se 
coloca mediante un GOSUB 1000, 
el dividendo en 13 bytes a partir de 
la dirección 35800; el primero de es- 
tos bytes es 0, y los bytes más signifi- 
cativos de su raíz cuadrada en las di- 


| 
| 
| 
| 


recciones 35905 y 35906. El primer 
divisor, que es 3, se guarda en 4 by- 
tes a partir del 35900. 

Una vez hecho esto, llama por pri- 
mera vez a la subrutina en código 
máquina en la dirección «com». 

El primer LDIR coloca la tabla de 
la figura 3 en la dirección 00. Es- 
ta tabla es usada por la rutina que va 
desde las líneas 80 a 190 y está com- 
puesta por 53 grupos de 2 bytes cada 
nümero (un grupo por cada nümero 
primo entre el 3 y el 251). Cada gru- 
po està formado por un contador de- 
creciente y por una constante, que 
es el número primo correspondien- 
te 

Posteriormente, el programa cal- 
cula si el divisor es de 1, 2, 3 0 4 b; 
tes y llama, respectivamente, a las 
rutinas dvl, 4у2, dv3 o dv4, que re: 
lizan la división en base 2 del divi- 
dendo entre el divisor , y dan como 
resultado únicamente el resto. La fi- 
gura 5 muestra dos ejemplos de esta 
división. 

Lo primero que hacen estas ruti- 
nas es saltar a «setdv», donde se mi- 
ra en el registro csi el divisor es múl- 
tiplo de uno de los 53 nümeros pri- 
mos. En caso afirmativo, no realiza 
la división y salta a «suma2». Si, рог 
el contrario, el registro C vale 0, Со- 
loca el dividendo en la posición 
35840, sobre la que se operan y vuel- 
ve. 

Luego, por otro LDIR, coloca el 
divisor en la posición 36000; en este 
momento los registros ІХ e IY seña- 
lan la dirección del dividendo y del 
divisor, respectivamente. Después 
del complicado proceso de la divi- 
sión, el registro IX se queda seña- 
lando al resto. Desde aquí el flujo 
del programa salta a la etiqueta «res- 
to», que comprueba el valor del res- 
to; si este es 0, salta a «divs», desde 
donde retorna el BASIC senalando 
que ha encontrado un divisor. 
Cuando esto ocurre, el BASIC lo 
guarda en la matriz n$ y divide el di- 
videndo por el divisor mediante un 
GOSUB 4000. 

Si el resto no es 0, el siguiente pa- 
80 consiste en sumar dos al divisor 
para obtener el próximo divisor. El 
programa realiza entonces una ülti- 
ma comprobación, la de si el divi- 
sor ha rebasado la raíz cuadrada, y si 
todavía no lo ha alcanzado cierra el 
ciclo en la dirección «mloop». Si lo 
ha rebasado ya vuelve al BASIC. En 
este caso, el dividendo es el último 
factor y el programa termina. 

J. INGNACIO PEREA 


PROGRAMA 1 


5 POKE 21672,0: POKE 25672,0: 
POKE 25874,0 


10 LET 24="2347915960015735617 


5629850677 

100 LET nei: DIM n(15): CLS : P 
RINT 

110 GO SUB 500 

120 

130 IF x/3<>INT (3/3) AND (STR 
x) (LEN STRS и)<>"5" AND х/7<>1М 
T (х/7) OR x<9 THEN GO SUB 500 
140 LET х=: во TO 130 

500 PRINT АТ 21,16;x: IF x280R 


VAL тї THEN бп TO 8000 
800 LET j$=z$: LET ks»STRE и: G 


O SUB 4000: IF VAL m$ THEN RETU 
RN 


LET n-n*i: LET 
PRINT AT 24n-5 


990 STOP 
4000 REM j$-k$ ж1% «mf 
4050 IF VAL j$4VAL k$ THEN LET 


IF VAL js<l1e THEN LET 14- 
STR INT (VAL j$/VAL k$): LET m$ 
=STR$ (VAL JE-VAL k$*VAL 14): RE 
TURN 

4150 IF VAL к%>1еВ THEN GO TO 4 
500 А 
4200 LET 1%=" 
e 

4210 FOR i=? TO LEN j$ 

4220 LET j=j#10+VAL jf(i): IF J< 
168 AND i«LEN 3% THEN NEXT i 
4225 LET 1=1МТ (j/VAL k$): LET j 
-l*VAL Кї: LET 1$=14+STR$ 1 
4220 NEXT i 

4240 LET m$-STRt j 

4490 RETURN 

4500 PRINT 4500: STOP 

1" THEN LET x=VAL z 


: LET ¿=VAL 1% TO 


9000 PRINT "Este programa ha tar 
dado "'(PEEK 25672*286«PEEK 2367 
3+65534¥PEEK 23474) /50;" segundo 
s"‘"en la descomposicion." 

9010 FOR #=1 TO n-1: PRINT n(£): 


gozo 


TO 60: ВЕЕР .O1,f: 


BEEP . : NEXT f 
9900 E 
9990 
9999 : SAVE "Primos" LINE 
9990 
00010 ORG- 34000 
00020 ; 
00030 com DI 
00040 LD DE,35500 
00050 LD HL, 34800 
00060 LD BC,106 
00070 LDIR ¿tabla 
00080 тісор LD BC, 13568 
00090 LD HL, 35500 
00100 loop DEC (HL) 
00110 JR NZ,noig 
00120 INC HL 
00130 LD A, (HL) 
00140 DEC HL 
00150 LD (HL),à 
00160 INC C 


00170 
00180 
00190 
00200 
00210 
00220 
00250 
00240 
00250 
00260 
00270 
00280 
00290 
00500 
00310 
00320 
00330 
00340 
00350 
00260 
00570 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
LZ 00830 


noig 


rep 


cont 


dvi 


ірі 


resi 


segi 


dv2 


1p2 


res2 


INC HL 

INC HL 
DINZ loop 
JR cont 

DI 

LD C,0 

LD 1Y,35900 
LD A, (IY+0) 
AND A 

JP NZ,dv4 
OR (IY*1) 
JP NZ,dvX 
OR (Түз?) 
JR NZ,dv2 
CALL setdi 
LD HL, 35903 
LD DE, 36000 
LD BC,2 
LDIR 

LD IY, 36000 
LD B,12 

LD а, (1X+0) 
CP (IY+0) 
JR C,segi 
JR NZ,rest 
LD а, (IX+1) 
CP (IY*1) 
JR C,segi 
LD A, (1X+1) 
SUB (IY*1) 
LD (IX+1),A 
LD а, (1Х+0) 
SEC А, (Іү+0) 
LD (IX*O),A 
SRL (1Y+0) 
RR (1Y+1) 
JR NC,lpi 
LD (IY*2),128 
INC IX 

INC IY 
DJNZ 1р1 
JP resto 
CALL setdv 
LD HL,35902 
LD DE,36000 
LD BC,3 
LDIR 

LD 1Y,36000 
LD B,11 

LD A, (IX+0) 
CP (IY*0) 
JR C,seg2 
JR NZ,res2 
LD а, (IX+1) 
CP (IY+1) 
JR C,seg2 
JR NZ,res2 
LD а, (1Х+2) 
CP (ІҮ+2) 
JR C,seg2 
LD а, (IX+2) 
SUB (IY*2) 
LD (IX*2),A 
LD А,(1Х+1) 
SBC A, (IY+1) 
LD (IX+1),A 
LD A, (IX+0) 


00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01050 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
017300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 


seg2 


dv3 


1p3 


res3 


seg3 


dv4 


1p4 


SEC A, (IY+0) 
LD (1X+0),A 
SRL (IY+0) 
RR (IY*1) 
RR (IY+2) 
JR NC,1p2 
LD (1IY+3),128 
INC IX 

INC IY 
DJNZ 1p2 
JP resto 
CALL setdv 
LD HL,35901 
LD DE,36000 
LD BC,4 
LDIR 

LD IY,36000 
LD B,10 

LD A, (IX+0) 
CP (IY*0) 
JR C,seg3 
JR NZ,res3 
LD A,CIX*1) 
CP (IY*1) 
JR C,seg3 
JR NZ,res3 
LD А, (1X+2) 
CP (1Y+2) 
JR C,seg3 
JR NZ,res3 
LD A, (1X+3) 
CP (IY*3) 
JR C,secz 
LD A,CIX*3) 
SUB (IY+3) 
LD (1X+3),A 
LD A, (1X+2) 
SBC A, (1Y+2) 
LD (1X+2),A 
LD A, (1X+1) 
SEC A, (1ү+1) 
LD (1X+1),A 
LD A, (1X+0) 
SBC A, (1Y+0) 
LD (1X+0),A 
SRL (IY4O) 
RR (IY*1) 
RR (IY*2) 
RR (IY*3) 
JR NC,1p3 
LD (IY*4),128 
INC IX 

INC IY 

DINZ 1p3 
JP resto 
CALL setdv 
LD HL, 35900 
LD DE, 36000 
LD BC,5 
LDIR 

LD IY,36000 
LD B,9 

LD A, (1X+0) 
CP (IY+0) 
JR C,seg4 
JR NZ,res4 
LD A, (1X+1) 


01510 СР (ТҮЗІ) 
01520 7 JR C,seg4 
01530 JR NZ,resa 
01540 LD а, (1х+2) 
01550 СР (ТҮ+2› 
01560 JR C,seg4 
91570 JR NZ,resa 
01580 LD а, (1X+3) 
01590 CP (IY+3) 
01600 JR C,seg4 
01610 JR NZ,res4 
01620 LD а, (1х+4) 
01630 CP (IY+4) 
01640 JR C,seg4 
01650 res4 LD A, (IX+4) 
01560 SUB (1Y+4) 
01670 LD (1X4), 
01680 LD а, (ICE) 
01680 LD А, (1X+3) 
01690 SBC A, CIY«2) 
01700 LD (IXe2),8 
01710 LD А, (1X+2) 
01720 БЕС А, (Тү+2) 
01730 LD (IX+2),A 
01740 LD А, (1X+1) 
01750 SBC A, (1Y+1) 
01760 LD (1X+1),0 
01770 LD A, (1X+0) 
01780 SEC А, (1Y+0) 
01790 LD (1X+0,A 
01800 sega SRL (IY+0) 
01810 RR (1ү+1) 
01820 RR (1Y+2) 
01870 RR (IY+3) 
01840 RR (1Y+4) 
01850 JR МС,1ра 
01860 LD (1Y+5),128 
01870 INC IX 
01880 INC IY 
01890 DINZ 1р4 
01900 resto LD A, CIX«0) 
01910 OR (IX+1) 
01920 OR (X42) 
01920 OR (X62) 
01940 JR Z,divis; Vuelve 


01950 LD BC,954 : 

01960 IN B.) 3 5 

01970 > RRA + 0,P,ENT 

01980 JR C,suma2; о SPC 

01990 LD 8.2 y estan 

02000 JR volv — :pulsados 

02010 tecla DI 

02020 suma2 LD 4,2 ¡Suma 2 
LD 1Y,35900 :al di~ 
ADD а, (IYe3) ¡visor 

02050 LD (1Y+33,A 

02060 LD A, (1Y+2 

02070 арс 4,0 

0208€ LD (1Y+2),0 
LD а, (IYe1) 

02100 арс а,о 

02110 LD (1Y+1),A 

02120 LD а, (1Y+0) 

02130 ADC A, 0 

o2140 LD (1Y+0),A 

02150 LD H,A 3 (IY+0) 

02160 LDL, CY) 

02170 LD D, (1ү+5) 

02180 LD E, (IY+6) 

02190 SBC HL,DE 

02200 JP C,mloop:limite 

02210 XOR A 1rebasado 

02220 JR volv 

02230 divis LD A,1 

02240 JR volv 

02250 setdv LD A,C umero 

02260 AND A ¿primo? 

02270 JR 2,setdt 

02280 РОР HLidir.para RET 

02290 JR suma2 

92200 setdi LD HL,35800 

92510 LD DE,35840 

02220 LD EC,16 

02330 LDIR ¡dividendo 

02340 LD 1X,35840 

02350 RET 

02560 volv LD (23296) ,A 

92370 EI 

02380 RET sal BASIC 


02390 Final DEFB 0,0,0,0,0 


PROGRAMA 


5 во TO 20 
10 CLEAR 26999: LOAD ""CODE 


20 DIM n$(21,12): LET n=1 

100 CLS : LET м%-"2547915960015 
7356175629850677": INPUT 1986 
Perea Software": ''"Numero:" "(P 


resiona ENTER para el numera" '(w 
$)y")"'pf: PRINT AT 21,15: "BASIC 


105 IF p$-"" THEN LET p$-wt 
107 LET y$-pf: PRINT AT 21,16;" 
BASIC"¡AT O,0;y$ 

110 LET a=VAL y$(LEN yf): IF a< 
Э2ЖІМТ (a/2) THEN GO TO 180 
120 LET x-2: LET z4-yf: GO SUB 
4000: LET y$=15: LET nf(n)- 
LET nen*1: PRINT "2 "ут: 
110: REM division por 2 
180 POKE 35813,0: POKE 35814,0: 
POKE 35815,0: GU SUB 1000: POKE 
35900,0: РОКЕ 22901,0: РОКЕ 259 
02,0: РОКЕ 25902,2: POKE 25904,0 
: REM primer divisor=3 

190 ВЕЕР .1,0: PRINT АТ 21,165“ 
C/M ": LET us-USR 34000 

200 PRINT АТ 21,16; "BASIC": LET 
us-PEEK 23296 

205 LET x-165777216«PEEK 2590046 
55З6«РЕЕК 35901+256%PEEK 35902+P 
ЕЕК 55902 

210 IF us=0 THEN ВЕЕР .1,-20: 


60 TO 8000 
215 IF us-2 THEN ВЕЕР ‚01,60: 
PRINT AT 21,05x: PRINT AT 21,16; 
" C/M ": RANDOMIZE USR 34534: БО 
TO 200 
217 REM IF us=1 THEN 
220 ВЕЕР .1,40: LET z$-yf: 50 5 
UB 4000: LET nstm)=STRS x: PRINT 
AT n,Osxi" "ilf: LET nen*i: LET 
үз-і% 
222 IF x>S0R VAL y$ THEN 50 TO 
8000: REM No buscar mas 
225 GO SUB 1000: BEEP .1,0: PRI 
NT AT 21,16;" C/M ": RANDOMIZE U 
SR 34032: G0 TO 200 
1000 REM Operaciones previas 
para cada dividendo 
1005 LET у-256: LET zf-yf: FOR f 
=35812 TO 35800 STEP -1: GO SUB 
4000: POKE 4,1: LET z$=1$: NEXT 
+ 
1010 LET a-SQR VAL у%/65556%1: R 
EM *1 por si acaso 
1015 IF a»65535 THEN LET a-6553 
5: REM limite aproximado para 
seguir calculando 
1020 POKE 25905,ІМТ (a/286): POK 
E 35905,a-256*INT (a/256): RETUR 
N Ы Pd 
4000 REM Division entera 
2+8 x 
NINA 


4100 IF VAL z$cleB THEN 6O TO 4 

зоо 

4200 LET 1%="": LET j-VAL zt( TO 

EORUM 

4210 FOR і-В TO LEN zt 

4220 LET j=3*10+VAL zt(i) 

4225 LET 1=INT (3/3): LET j=3-1% 

x: LET 1$=1$+STRF 1 

4230 NEXT i 

4490 RETURN 

4800 LET 1$-STR& INT (VAL z$/x): 

LET jeVAL z$-x«VAL 1f: RETURN 

7900 REM Encontrados todos los 

factores primos 

2 IF y$<>"1" THEN LET nstn)= 

3 LET y$="1": LET n=n+1 

$000 ВЕЕР 5,30: CLS + PRINT "Lo 

s factores primos son:": FOR #=1 

TO n-1: PRINT п%(4): NEXT f 

9300 REM Reloj 

9400 POKE 22672,0: 

POKE 23674,0 

9500 POKE 23624184: PRINT )о:Өт 

9,0:" Terminado hace "INT ((& 

SSSUMPEEK 25674+256%РЕЕК 236734P 

EEK 23672)/50);" segundos. "," 
Presiona ENTER",: IF INKEY+ 

43CHR£ 13 THEN GO TO 9500 

9998 BORDER 7: STOP 


POKE 22672,0: 


E 10: SAVE r cNm"CODE 24000,95 
0: REM Programa*Bytes 
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Suplemento especial e Ng 


Quien es quien 


en el mundo 
del QL 


PROSPERO SOFTWARE LTD. 
190 CASTLENAU 
LODON SWI3 904 


Esta firma desarrolla actualmente 
software para el QL bajo el sistema 
operativo QDOS. Prospero es cono- 
cida por sus programas para CP/M- 
80 y el PRO-PASCAL-ISO para 
IBM PC, primer compilador de Pas- 
cal para microordenador que superó 
las pruebas de homologación del 
LS.O. 


DIGITAL PRECISION 
222 THE AVENUE 
LONDON E4 9SE 


Prácticamente desconocida hasta 
ahora, Digital Precision ha sido lan- 
zada al estrellato por el SUPER- 
CHARGE SUPERBASIC COMPI- 
LER (Compilador de SUPERBA- 
SIC). Otros productos рага QL desa- 
rrollados por esta empresa son: 


Super Forth 
Super Sprite Generator 
Super Monitor Dissasembler 


QJUMP 

25 KING STREET 
RAMPTON 
CAMBRIDGE CB4 4QD 


QJUMP fue fundada por Tony 
Tebby, creador del sistema operati- 
vo del QL. Entre al software desa- 
rrollado por esta empresa se en- 
cuentra el QL TOOLKIT, extraordi- 
nario programa completo al sistema 
operativo. También comercializan 
los siguientes productos: 


Qe 


Una de las mayores 
preocupaciones de los 
usuarios del QL es la 
escasez de software y 
hardware en España. 

Cada vez son más 
quienes recurren al 
mercado británico, dado 
el desinterés de 
Investrónica. Por ello, 
ofrecemos una lista de las 
empresas británicas que 
trabajan para el QL, 
especificando los 
productos que 
comercializan. 


QL Toolkit II (ROM) 
QL Monitor Debugger 
Eprom Programmer 
QFLP Upgrade ROM 


QJUMP ha escrito el firmware de 
la mayoría de los controladores de 
floppy para QL. El firmware de To- 
ny Tebby permite leer, escribir y 
formatear discos en sectores de 128 
bytes a 1024 bytes, lo que cubre la 
mayor parte de los formatos utiliza- 
dos. Puede acceder al disco como si 
fuese un sólo fichero de éste, lo que 
permite el lujo de tener un floppy 
con discos formato PC DOS, otro 
QDOS y otro UNIX, por ejemplo. Y 
con rutinas adecuadas se podría tra- 
bajar con los tres formatos a la vez. 
Con las rutinas adecuadas, el QL po- 


dría ser unasolución ala conversión 
de formatos. 


CENTRONICS 


Este fabricante de impresoras, 
que ha dado su nombre al interface 
paralelo para la conexión de estas, 
ha lanzado una impresora con el 
juego de caracteres del QL, termi- 
nando con los problemas de transla- 
te. 


COMPUTER ONE 
SCIENCE PARK 
MILTON ROAD 
CAMBRIDGE 


Computer One es una empresa 
muy conocida en el mundo del QL. 
Dispone de los siguientes progra- 
mas: 

QL Typing Tutor 
QL Assembler 
QL Forth 

QL Pascal 

El Pascal es inferior al de META- 
COMCO, pero a cambio deja más 
memoria libre para el usuario. 


GST COMPUTER SYSTEM LTD. 
91 HIGH STREET 

LONG STANTON 

CAMBRIDGE 


De GST destacan el ASSEM- 
BLER y el LINKER, programas 
adoptados oficialmente por Sinclair. 


QUEST INTERNATIONAL LTD. 
TEL.: 04215 66488 


Destaca la implementación del 
sistema operativo CPM/68K, origi- 


Unidad de discos y controlador de Cumana. 


nal de DIGITAL RESEARCH, dis- 
ponible desde septiembre de 1984. 
También distribuye paquetes de 
aplicaciones y juegos, tanto para 
CPM como para QDOS. 
Encuanto a hardware, cuenta con 
ampliaciones de memoria de 64 a 
512 К, unidades de disco de 5”1/4 y 
un disco Winchester de 7,5 MB. 


MICRO APL. 
TEL.: 01 622 0395 

Esta firma, especializada en intér- 
pretes de APL, distribuye al APL del 
QL. Este potente lenguaje estaba 
disponible hasta ahora únicamente 
para grandes ordenadores. 


TANDATA MARKETING LTD. 
ALBERROAD NORTH 
MALVERN 
WORCS WR14 2TL 

Distribuye el QCOM, interface de 
comunicaciones, el QCALL, módu- 
lo de llamada, marcado y respuesta 


automática y el QMOD, modem. 
Juntos constituyen un sistema com- 
pleto de comunicaciones para el 
QL, permitiendo la conexión a ba- 
ses de datos de grandes ordenado- 
res. 


DATA MANAGEMENT 
CLARK HOUSE 

THE VILLAGE 
HAXBY 

YORK Y03 8HU 


Otra firma que dedica sus esfuer- 
zos al terreno de las comunicacio- 
nes con emuladores múltiples de 
terminal, software de comunicacio- 


nes y modems. 


MICROPERIPHERAL LTD. 
TEL.: (0256) 473232 

Fabricante de los discos oficiales 
de Sinclair. Estos discos han sido 
criticados por tener un firmware in- 
ferior al de otras unidades. 


COMPUTAMATE 
TEL.: 0768 811711 


Una de las primeras casas en fa- 
bricar discos de 3.5 y 51/4 para el 
QL. El software es de QJUMP. Tam- 
bién realiza consolas de expansión. 


Adaptador 


de Miracle 
Systems. 


Qs 


serie-Centronins 


PCML 
ROYAL MILLS 
ESHER, SURREY KTI10, 8AS 


Dispone de expansiones de me- 
moria, interfaces de floppy con 
RAM adiccional y de una tarjeta con 
un procesador Z-80, lo que permite 
la posibilidad de utilizar CPM 80. 


TDI, LTD. 
BRISTOL 


TDI ha desarrollado el sistema 
operativo P-SYSTEM o UCSD-PL, 
creado en la Universidad de Califor- 
nia—San Diego. Para este sistema se 
han lanzado inicialmente los popu- 
lares UCSD-PASCAL y FOR- 
TRAN-ANSI 77, así como diversas 


aplicaciones. 


MIRACLE SYSTEMS LIMITED 
UNIT 37a, AVONDALED WORKS- 
HOPS 
WOODLAND 
WOOD 
BRISTOL В515 1QL 


Produce ampliaciones de memo- 


WAY, KINGS- 


Cable adaptador dejoysticks, de Miracle System. 


Gs 


ria de 256 K y 512 K, con un conec- 
tor que permite la conexión simul- 


BCPL, desarrollado por Metacomco. 


tánea del disco. También comercia- 
liza convertidores serie paralelo 
Centronics. 


C 


SYSTEMS 
? Y (CST) 
30 REGENT STREET 
CAMBRIDC 282 1DB 
Entre sus productos destaca cl su- 
perprofesional interface IEEE-488, 
creada porel Instituto de Ingenieros 
Eléctricos y Electrónicos y adoptado 
como standard mundial por la Co- 
misión Electrototécnica Internacio- 
nal (IEC) 


TECH- 


METACOMCO 
26 PORTLAND SQUARE 
BRISTOL BS2 8RZ 


Junto con Computer One, fue 
una de las primeras empresas en 
producir software para el QL. 
Cuenta con los siguientes progra- 
mas: 

Assembler 
BCPL 
LISP 
Pascal-ISO 
Lattice-C 
JOSE M. GUZMAN 


LOS BUGS DEL SISTEMA 
OPERATIVO 


UNQUE el QL tiene un núme- 

ro muy pequeño de bugs, es 

conveniente conocerles, para 
saber evitarlos. 

En primer lugar vamos a citar los 
bugs comprobados en la versión es- 
pañola, que son tres únicamente, y 
dos de ellos en el WHEN ERRor. 

1 La instrucción GOSUB dentro 
deun bucle corto FOR o REPeat ac- 
tüa con fin del bucle. 

Forma de evitarlo: utilizar la for- 
ma larga, o utilizar las más raciona- 
les procedures. 

2 Hay un indicador de error que 
cuelga el QL. 

Forma de evitarlo: no utilizar in- 
dicadores, es mejor utilizar el ER- 
NUM y una variable. Ejemplo IN- 
DIC-ABS(ERNUM ) y luego if o se- 
lect con la variable INDIC. Los va- 
lores de INDIC están en el manual 
en ERRORES, la función ERNUM 
los da en negativo, de ahí el ABS. 

3 Cuando está el WHEN ERRor 
activado, y al llamar a una función 
con una expresión en su argumento 
se produce el error de desborda- 
miento, al calcular ésta se cuelga el 
QL. 
Forma de evitarlo: utilizar una va- 
riable intermedia de forma que no 
se llame a las funciones con expre- 
siones dentro del paréntesis. 

d=sqrt(3*X/12—10) puede colgar 
el QL con WHEN ERRor. 

d=3*x/12—10:d=sqrt(d) no lo 
cuelga nunca. 

Creo que por esos dos pequeños 
bugs, no debemos de abandonar el 
uso del estupendo WHEN ERRor. 

Hay detalles que no son bugs, 
sino actuaciones racionales de los 
diseñadores del QL: 

El mensaje de “error en expre- 
sión” o de “nombre incorrecto” ocu- 
rre siempre que se encuentra con 
una variable no inicializada, proce- 
dures o funciones no definidas, etc. 
Por cierto, el ANSI Basic exige este 
mensaje de error para variables no 
inicializadas. 

No admite el dimensionamiento 


implicito, al igual que el ANSI BA- 
SIC, hay que definir siempre las di- 
mensiones de las matrices. 

En un WHEN ERRor no se admi- 
ten errores, para evitar bucles de au- 
totratamiento de errores, y pone el 
mensaje de: 

“durante una ejecución WHEN” 
para volver a la normalidad pulsar 
directo desde el teclado END 
WHEN. 

El «break» no es atrapado por 
WHEN ERRor, para facilitar la co- 
rrección de programas que lo utili- 
cen. 

Debido a que se trazan por «stip- 
ples» bloques de cuatro puntos, al 
trazar puntos traza dos en vez de 
uno, es fácil definirse una función 
punto con BLOCK, o solicitar la ru- 
tina de Investrónica para un solo 
punto. 


En procedures y subrutinas no se 
admite MRUN y MERGE para evi- 
tar que se pueda desordenar la pila 
de retornos de subrutinas. 

RENUM es peligroso desde un 
programa, puede liar al intérprete si 
cambia el nümero de línea en que se 
solicita, también DLINE es peligro- 
зо desde programa, si borra la línea 
que se está ejecutando, los dos no se 
admiten desde procedures. 

Hay una combinación extraña de 
teclas que «cuelga» al QL sino se tie- 
ne un software adecuado, es debido 
aque genera una interrupción nivel 
7. Sirve pra que los programadores 
puedan intentar levantar «cuel- 
gues» de programas en código má- 
quina. Programas monitores espe- 
ciales aprovechan esta fantástica fa- 
cilidad del QDOS. 

Para evitar lios, la radiodifusión 


OF 


de red local funciona sin comproba- 
ción, sólo para cortos mensajes, de- 
be de utilizarse sólo como canal de 
órdenes, y disponer de la propia 
comprobación por programa de los 
usuarios. Viene documentado en el 
Manual de usuario, Máxima longi- 
tud de mensaje en Radiodifusión 
por red local 255 bytes. Que nadie 
hable de Bugs si falla en mensajes 
largos. Para mensajes largos utilizad 
la red normal tal y como indica el 
manual. 

Por ültimo, antes de hablar de un 
nuevo bug, consultar, es muy fácil 
que sea error de programación. 

Veamos ahora la «TERRIBLE» 
lista de bugs, algunos muy oscuros,- 
de las versiones anteriores. No exis- 
ten en la versión española, excepto 
algunos no comprobados. Aquellos 
que tengan QLs antiguos, que cam- 
bien a las nuevas ROMS. 

1 Una muy molesta para los pro- 
gramadores en C.M.: el QL se colga- 
ba al utilizar CALL desde un pro- 
grama de SuperBasic que ocupase 
más de 32K. No se ha comprobado, 
pero Sinclair daba una rutina que lo 
corregía. Habitualmente se cargan 
extensiones en C.M. en el programa 
BOOT, que es corto. No es bueno 
cargar en el programa principal las 
extensiones, si se para y se vuelve a 
lanzar, va rellenando cada vez la 
memoria de rutinas en C.M. y se 
puede forzar un fuera de la memoria 
por mala programación. 


2 No reconocía más que una 
ROM de periféricos. Aunque no se 
ha comprobado experimentalmen- 
te, no hay errores en las rutinas de 
chequeo de ROM de periféricos, si- 
tuadas entre $4A62 y $4AC2. Sin- 
clairtambién proporcionaba una ru- 
tina de corrección. 


3 List desde un programa daba 
*no implementado". 


4 Si con DLINE se borra la ülti- 
ma procedure de un programa, se 
llama a la procedure desde el tecla- 
do, y después se hace clear, se colga- 
ba el QL. 

5 Si se coloca una expresión en- 
tre paréntesis en los data, ignoraba 
el resto de la línea. 

El QL admite expresiones en los 
DATA, y si se colocan las constan- 
tes alfanuméricas sin comillas o 


als, 


apóstrofes da el correcto “error en 
expresión” al no encontrar la varia- 
ble. 


6 dir mdv8__ y después dir 
т4у2 no funcionaba bien. 


7 Aleditar una procedure aborta- 
da, a veces editaba una línea cual- 


quiera. Se corregía con un simple 
list u otra cosa y después editar. 

El mensaje “PROC/FN limpiado” 
es correcto, siempre que se edite, o 
se dé un comando directo distinto 
de CONTINUE O RETRY, y el pro- 
grama se haya parado en medio de 
una procedure o función, si no se hi- 
ciese así, se desordenaría la pila de 
retornos. 


8 Cuando se declaraban más de 9 
nombres de variables locales, origi- 
naban problemas. 


9 No era conveniente hacer tro- 
ceado de matrices de cadenas, era 
mejor utilizar una variable interme- 
dia. 

10 En la ROM JS, de todos los ar- 
gumentos de la función, sólo admi- 
tía el SELECT con el último. 

Además hay que destacar que los 
bugs son en su mayoría del intérpre- 
te y no del QDOS, por cierto sería 
genial una rutina que aprovechase 
la interrupción de nivel 7, para «le- 
vantar» los cuelgues del intérprete. 
Aunque lo bueno es compilar. 


José M. Guzmán 


ESDE el lanzamiento del QL 
e habla mucho de la multita- 
rea y del mítico UNIX. Vamos 
a explicar un poco la historia de los 
sistemas operativos multitarea. 
Cuando la Informática estaba 
empezando, y los equipos eran muy 
costosos, una máquina con las posi- 
bilidades de un Spectrum costaba 
millones de pesetas y a nadie se le 
ocurría poder tenerla para él solo. 
El sistema que se utilizaba para 
aprovechar los costosos equipos era 
el batch, o procesado por lotes. Los 
usuarios del ordenador depositaban 
sus programas y datos en el Centro 
de Cálculo, los empleados de centro 
introducían los programas y datos y 
recogían los resultados, luego el 
usuario recibía los resultados. 


Naturalmente el menor error del 
programa y de los datos, obligaba a 
repetir el proceso, con la consi- 
guiente pérdida de tiempo. El desa- 
rrollo de programas era laboriosísi- 
mo. 

Como era económicamente im- 
posible el que un usuario pudiese 
tener un ordenador para él sólo, en 
las universidades los programado- 
res, cansados de entregar un progra- 
ma, recogerlo al día siguiente con 
errores, volverlo a entregar, etc., tu- 
vieron la genial idea de que, dado 
que el ordenador es mucho más rá- 
pido que el usuario, si se le hacía de- 
dicar una pequeña fracción de su 
tiempo a cada usuario, a este le pare- 
cería tenerlo sólo para él, pero como 
el ordenador es rápido, podría aten- 


der a la vez a muchos usuarios. 

Esta genial idea es el sistema de 
multitarea por partición de tiempo, 
«time-slicing», el más utilizado hoy 
en día. 

Naturalmente, desde entonces 
han progresado los sistemas operati- 
vos multitarea, anadiéndose más 
funciones, pero la básica es ésta, la 
partición del tiempo, y vamos a dar 
una idea de cómo se realiza. 

El corazón de la multitarea es el 
repartidos de tiempos de ejecución, 
el sheduler, es una rutina que se lla- 
ma por las interrupciones hardware 
cada cierto tiempo, y decide qué 
programa уа а ser ejecutado, salvan- 
dolos valores necesarios para poder 
volver a comenzar el progrma ante- 
rior, y colocando los nuevos del pro- 


Qu 


grama a ejecutar 

Para aquellos que quieran exami- 
nar con un desensamblador el sche- 
duler del QL, ofrecemos una somera 
indicación de las direcciones (hexa- 
decimales) de las rutinas más im- 
portantes 

— $352 entrada de todo tipo de in- 
terrupciones nivel 2, comprueba si 
son de microdrives, disco, etc. 

— $90A entrada de interrupcio- 
nes de temporización y scheduler. 

— $936 Comprobación de tareas 
de altísima prioridad (modo siste- 
ma). Si se está en ellas no se ejecuta 
el scheduler. 

— $940 a $966 el scheduler propia- 
mente dicho 

— $9DE a $A14 la rutina que sal- 
va todos los valores y datos necesa- 
rios para volver a reanudar la ejecu- 
ción del programa suspendido. 

— $A16a$A80 la rutina que elige 
el programa que le corresponde eje- 
cutarse. 

— $A82 a $AA6 la rutina que co- 
loca los valores necesarios para rea- 
nudar la ejecución de la tarea 

— SAAS a $АС8 una interesante 
rutina de llamada a las listas encade- 
nadas de tratamiento de interrup- 
ciones. 

Las direcciones indicadas son las 
de la ROM española MGE, en otras 
ROM pueden cambiar. 

El scheduleres el corazón del sis- 


tema operativo multitarea, pero un 
sistema multitarea necesita mucho 
más que eso. El hecho de que estén 
ejecutándose varios programas a la 
vez puede dar lugar a muchos pro- 
blemas, por ejemplo, tomado del li- 
bro de Dickens, es fácil imaginarse 
un listado en que varios programas 
escribiesen por impresora a la vez. 

El sistema operativo gestiona la 
utilización de los recursos del orde- 
nador, evitando, en lo posible, que 
unos programas «machaquen» a 
otros, controla la utilización de fi- 
cheros, interfaces, etc. También, 
desde el Multics, se incorporan 
temas de comunicación intertare; 
llamados pipes, para facilitar el uso 
del equipo. Los pipes están disponi- 
bles en el QDOS, pero no en Super- 
BASIC. Hay rutinas de Qunata que 
permiten utilizar las pipes desde el 
SuperBASIC. 

Por otro lado, en los modernos 
sistemas multitarea, cuando un pro- 
grama está esperando la realización 
de una operación de entrada/salida 
oelenvío de la comunicación de un 
dato por otro programa, este progra- 
ma se detiene para evitar que mal- 
gaste el tiempo del procesador. 

Como vemos son muy complejas 
y variadas las labores que debe reali- 
zar un sistema operativo multitarea, 
por lo que se suelen implementar en 
ordenadores potentes. Además, al 


ser complejos, su desarrollo es cos- 
toso, por lo que normalmente sólo 
se utilizan máquinas caras. Pero tio 
Clive nos puso, como siempre, lo 
inasequible a precios razonables. 

Naturalmente sistemas operati- 
vos multitarea hay muchos, empe- 
zando por el mítico UNIX y sus va- 
riantes, siguiendo con el PICK, OA- 
SIS, los Concurrent CPM 86, 286 y 
68K, el Tripos del Amiga, el 68KOS 
y nuestro QDOS. 

Y si hablamos de miniordenado- 
res y grandes Ordenadores (main- 
frames), hoy en día no se concibe un 
sistema operativo para ellos sin ser 
multitarea, simplemente por lo me- 
nos para el spool de impresora (esto 
es imprimir en ficheros de disco, y 
un programa en multitarea se encar- 
ga de imprimir mientras el ordena- 
dor sigue trabajando). Realmente 
sería absurdo tener estos equipos 
parados esperandod el acabar de im- 
primir. 

Hay muchas variantes de siste- 
mas operativos multitarea, de tiem- 
po real, multiusuario, etc. Pero va- 
mos a ir empezando poco a poco. 

Para aquellos que quieran intro- 
ducirse más a fondo en el QDOS, el 
libro recomendado es la Guía del 
Usuario Avanzado del QL por Adrian 
Dickens, publicado por RAMA. 


José M. Guzmán 
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Ju 


KRIPTON 


RAIDERS 


FUTURE STARS 


SPECTRUM 48 K 


Siguiendo una línea que parece 
estar teniendo éxito en el 
mercado de los juegos para 
Spectrum, Dinamic ha dado a 
luz esta nueva firma, cuyo 
cometido es ofrecer al sufrido 
consumidor nuevos títulos al 
precio de 999 ptas., a la vez que 


da a programadores nóveles una 


oportunidad para triunfar. 

El objetivo de la aventura es, 
tras localizar y recoger los 
cuatro diamantes que se hallan 
diseminados al azar por un 
intrincado laberinto en dos 
dimensiones, alcanzar la nave 
que nos permita huir de allí. En 
cada pantalla que visitemos nos 
encontraremos cierto nümero de 
extrañas criaturas que harán 
difícil la tarea, por lo que 
constantemente tendremos que 
hacer uso de nuestro láser. Sin 
duda el mayor atractivo de este 
programa reside, precisamente, 
en la cantidad de disparos que 
podemos llegar a hacer en cada 
partida, acabando con docenas 
de enemigos en muy poco 
tiempo. 

La extructura del juego nos 
recuerda bastante al viejo Jet- 
Pac de Ultimate, pero el tamaño 
del protagonista es menor, 
mientras que el mapa es más 
extenso. El movimiento de los 
sprites, sin ser malo, deja 
pequeños detalles sin acabar, 
especialmente cuando se 
sobreponen varios de ellos o 
cuando el astronauta es 
destruido. 


El nivel de dificultad es bastante 
alto, como viene siendo norma 
en las últimas creaciones de 
todas las casas. Parece ser que 
quien decide gastar su dinero 
en la compra de un programa 
de este tipo desea que, al 
menos, le dure unas semanas. 
Los gráficos no aportan nada 
nuevo, pero cumplen 
perfectamente con su papel 


Otro tanto hay que decir de los 
detalles sonoros y de 
presentación, que hacen que el 
juego sea completo en sus 
partes más esenciales. 

Se trata, en definitiva, de un 
buen programa si lo calibramos 
teniendo en cuenta el precio al 
que se comercializa. Muy 
aconsejable para los amantes de 
los juegos de acción 


APREN 


uando se pensó por 
primera vez en la crea- 
ción de un micropro- 
cesador «hijo» del po- 
pular Intel 8080 у se 
empezó a calibrar cuá- 
les serían las modificaciones más in- 
teresantes que se le podían hacer, 
surgieron, por un lado, voces que 
clamaban por una ampliación del 
númro de registros (de ahí surgió el 
juego alternativo y los índices IX e 


LENGUA, 


IY), y, por otra parte, las de quienes 
creían necesaria la implementación 
de nuevas instrucciones que au- 
mentaran la potencia y la versatili- 
dad del nuevo procesador y lo hicie- 
ran más cómodo al programador. 
Entre estas ültimas instrucciones 
destacan las que permiten trabajar 
con bits independientes en cual- 
quier registro o posición de memo- 
ria, una de tantas virtudes que ha- 
cen al Z-80 el rey de los 8 bits. 

La instrucción BIT permite que 
conozcamos el estado lógico de un 
bit cualquiera en un registro o una 
posición de memoria que direccio- 
nemos con HL, IX o lY. El valor del 
bit que nos interesa es copiado en la 
bandera de cero (Z), por lo que si, 
por ejemplo, queremos llamar a una 
determinada rutina, sólo en caso de 
que el bit 3 del registro D valga 1, po- 
demos hacer lo siguientes: 


BIT 
CALL 


3D 
Z,RUTINA 
Como puede verse, esto resulta 


de especial interés cuando registros 
о posiciones de memoria son usa- 


` dos como grupos de banderas, al es- 


tilo de las variables del sistema 
FLAGS, FLAGS2, TVFLAGS, etc. 
La principal ventaja esque no esne- 
cesario modificar el valor de ningún 
registro como en el uso de mási 


IDIENDO 


JE MAQUINA 


con las instrucciones lógicas, en las 
que el acumulador resultaba altera- 
do. Además el valor del bit de aca- 
тео es respetado, aunque no pasa lo 
mismo con las demás banderas. 


SETeando y RESeteando un bit 


Existen otras dos instruciones 
que permiten modificar el valor ló- 
gico de un determinado biten cual- 
quier registro o posición de memo- 
ría que direccionemos con HL, IX o 
IY: 


SET lo que hace es poner a uno el 
bit que indiquemos fuera cual fuera 
el valor anterior y respetando los 
bits contiguos. La sintaxis es similar 
a la de BIT; por ejemplo, para poner 
a uno el bit 3 del contenido de la di- 
rección de memoria a la que apunta 
HL habria que hacer SET 3,(HL). 
Esto equivaldría a hacer LD A,32 
más OR (HL) y más LD (HL), A; co- 
mo podemos ver estas instrucciones 
ahorran bastante, además de reser- 
yar el valor que tuviera el acumula- 
dor. 


RES pone a cero el bit que especi- 
fiquemos de forma similar a BIT y 
SET. Para poner a cero el bit 0 del 
acumulador haríamos RES 0,A, lo 
que es equivalente a hacer AND 
254. 


Las instrucciones de manipula- 
ción de bits, aunque no son tan uti 
zadas como las de carga o las aritmé- 
licas, cumplen un papel importante 
ala hora de hacer más cómodos y rá- 
pidos ciertos cometidos concretos. 
Hay que tener siempre presente que 
existen, de forma que puedan ser- 
nos ütiles cuando las necesitemos. 


Tiempos de ejecución 


El tiempo de ejecución puede re- 
sultar una cualidad importante en 
un programa y a menudod es im- 
prescindible su cálculo para ciertas 
rutinas que deben compenetrarse 
entre sí a la perfección. Por ejemplo, 
no podrían funcionar las rutinas de 


NOTACION 


Fy г” = AB,C.D.E/H oL 
desplazamiento (-128 а 
valor entre О у 255 (1 
valor entre О v é5535 
= BC,DE,HL o SP 
AF,BC,DE o HL 
BC.DE,IX o SP 
BC.DE.IY o SP 
bit (0-7) 
CC 7 condición 
n’ = 0,8,16,24, 


BANDERAS 


no alterada 
alterada seqûn el 
puesto a cero 
puesto a uno 
toma el valor 
desconocido 
cero si BC-1= 
uno si AS(HL), 
uno si B-1=0, 


de IFF 


E 


440.48 o 56 


resultado de la operación 


(habilitación de 


‚ uno en caso contrario 
cero en caso contrario 
cero en caso contrario 


127) 
byte) 
(2 bytes) 


interrupción) 


BA denas grabación y carga 
Mnemónico C ZFQSNH Мат. bytes Мат. est.T coincidieran en ambas los tiempos 
de los bucles de retardo. 
ADD HL,rr Ж Ж От? 1 11 
ADC HL,rr X Sado i y i 
R o e 5 T El cálculo de los tiempos de eje- 
ADD IX, rX X***x02?7 2 15 cución de una instrucción resulta 
ADD IY,rY X***o0 2 15 siempre que sepamos el nümero de 
INC rr X X X XX X 1 6 pasos de reloj o estados temporales 
С Ps НТ E 10 que necesita dicha instrucción y la 
DEC rr XXKXXX Т 5 velocidad a la que corre el reloj en 
DEC IX XXXXXX 2 10 nuestro ordenador. En el Spectrum 
DEC IY Ххх 2 10 la velocidad de reloj es de 3.5 MHz, 
y a T М 1 д 9 1 3 es decir, que en un segundo da tres 
RRCA хакко о 1 2 millones y medio de impulsos, y el 
RRA X***00 1 4 número de estados temporales de 
RLC r ххххоо 2 в cada instrucción, así como la forma 
RLC (HL) XXXX00 2 45 en que las banderas se ven afecta- 
a E E 23 das, podéis consultarlo en la tabla 
BL g хо = que acompaña a estas líneas. 
RRC s XX хх 656. i А 
RR s XXXX00 ses cualquiera de r, (HL), Si en un segundo nuestro reloj da 
SLA s ххххоо (1Х%4) o (IY*d) como en RLC. 3.500.000 impulsos, quiere decir 
RA ARNO O que el tiempo de cada ciclo es de 1/ 
ЗЕ Е x y 2 + Г 5 = A 3.5*10%, osea, aproximadamente | т 
RRD жхххоо 2 m .000000286 segundos о 286 nanose- = 
gundo: E 


[AA AAA коз =ч 
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Una publicación 

de clara y amena 
lectura. 


Para el aficionado, para 
el profesional. 

Técnica, diversión 

y entretenimiento. 
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28020 MADRID 


LD A.I жхіхоо 2 > 
LD A,R жх хоо 2 ° 
LD 1,A Жж ? 9 
LD R,A KAR AAA 2 5 
LD rr,nn KA XARXA 3 10 
LD IX,nn ЖЖЖЖ а 14 
LD ІҮ, пп жая а 14 
LD HL, (пп) ааа 3 16 
LD dd, (пп) + + ж E + 4 20 
LD IX, (nn) XE Ee E 20 
LD IY,(nn) kk 4 20 
LD tnn), HL * * * + + + з 16 
LD (nn),dd Ж жж 4 20 
LD (nn),IX ааа ж + 4 20 
LD (пп), ТҮ ***xxx 4 20 
LD SP,HL ж ++ ++ 1 в 
LD SP, IX ж + + 2 10 
LD SP,IY X ok x + 2 10 
PUSH qq xk kx x d 11 
PUSH IX osx 2 15 
PUSH IY +++ + + + 2 15 
POP aq kk 1 10 
POP IX + ++ + + + 2 14 
POP IY жж ++ 2 14 
Banderas 
Mnemónico CZPSNH Nam. bytes Nam. est.T 
JP nn kiki 3 10 
JP cc,nn хех з 10 
жа ЕТТУ! 2 12 Si сс es talsa 
7 Si сс es verdadera 
JR Cd kr 2 12 Si cc es falsa 
7 Si cc es verdadera 
JR NC, d xri 2 120 Si cc es falsa 
> Si cc es verdadera 
JR 2,4 ETTET] 2 12 Si cc es falsa 
> Si сс es verdadera 
зк nz, a RR. 2 12 Si cc es falsa 
> Si сс es verdadera 
JE н) ETETE 1 4 
ір аю) жж хаж 2 в 
JP (1Y) ж ұза» 2 в 
Danz d жуя» 2 в Si в=0 
13 81 BOO 
CALL nn ETTET 3 1? 
CALL cenn EX EE 3 10 Si cc es falsa 
17 Si сс es verdadera 
RET ИЕЫ 1 10 
RET cc XXX 1 5 Si cc es falsa 
11 — €i сс es verdadera 
RETI TEETE 2 14 
RETN какая 2 14 
RST n жук» 1 m 
IN А, (n) xk 2 10 
IN r, (C) #XX X0 X 2 m 
INI Xa2212? 2 15 
INIR O 2 20 ві BOO 
15 Si Beo 
IND жеттт?» 2 1s 
INDR жї??? 2 20 ві ROO 
15 Si ео 
OUT (m^ nr 2 її 
OUT (C1, xri 2 12 
өшті 192712 2 15 
OTIR жіз?і? 2 20  . $i BOO 
15 si B=0 
ота жаззі? 2 15 
OTDR ахат 2 20 si воа 
15 81 вео 


Por ejemplo, la siguiente rutina: 


Instrucciones n." estados n." veces Total 


ejec. 
XOR A 7 1 e 
LD B0 7 1 7 
BUCLE ADD 4 10 40 
АВ 
DJNZ 8 1 8 
BUCLE si B=0 
12 9 108 
si B<>0 
RET 10 1 10 
Total 180 


nos da un total de 180 estados tem- 
porales, lo que equivale a 180/ 
3.54105, о aproximadamente 
.0000514 segundos, es decir, bastan- 
te poco tiempo. 

Con el estudio de las instruccio- 
nes de manipulación de bits damos 
en este capítulo casi por acabada lo 
que ha pretendido ser una visión ge- 
neral del juego de instrucciones del 
7-80. En capítulos sucesivos inten- 
taremos terminar de adentrar al lec- 
tor en la estructura lógica del Spec- 
trum aclarando los temas más esen- 
ciales para hacerle llegar al punto en 
el que pueda sacarle todo el partido 
а su ordenador. 


E 
BIT b,r *x?701 2 в 
BIT b, (HL) жХ??О1 ? 12 d 
BIT b,(IX+d) *X??01 4 20 Д 
ВІТ b, (1+0) *X?7?01 4 20 
SET b,r + + + + ++ 2 в 
SET b, (HL) жож жож kk 2 15 
SET b, (1Х+0) XXX X * 4 23 
SET Ь,(1ү+0) #+++ ++ 4 23 
E RES b,s з es cualquiera de г, (HL), 
(1X*d) о (1Y*d) como en SET. 
Banderas VALENTE computación 
Mnemónico C 2%5 МН Мат, bytes Мат, est.T MADRID. BUENOS AIRES. 
PROGRAMAS PARA QL DESDE 2.300 
LB rv ЖҰ 1 4 
LD ғ, п KA AAA 2 2 
LD r, (HL) RA ДЕ ДЕ 1 РА 
LD r,tIX*d) ЖҰЖ з 19 
LD r,CIY*d) ЖКЖ з 19 
LD (HL),r ЖҰҒУ 1 7 
LD (IX*d).r жожо жж ж а 19 
LD (IY+d),r +++ ++ а 19 
LD (HL),n EXA 2 10 
LD (IX*d),n ++ LAA 4 19 
LD (IY+4),n ажалы а 19 Santa Engracia, 88 ж 445 32 85 
LD А, (BC) Xx*x*X 1 E 28010 MADRID / <B> roLESIA 
LD A, (DE) XX k ko x» 1 7 
LD A, (nn) ЖҰЖ a 39 
LD (BC),A ЖЕЛЕ 253 1 7 
LD (DE).A Жжж 1 > 
LD (пп),А ж» + a 13 


DISPONEMOS DE TAPAS ESPECIALES PARA 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envielo a: 


Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


Por favor envienme tapas para la encuadernación de mis 
ejemplares de TODOSPECTRUM, al precio de 650 pts. más gastos de envio. 


El importe lo abonaré 
D POR CHEQUE D CONTRA REEMBOLSO O CON МІ TARJETA DE 
CREDITO О AMERICAN EXPRESS O VISA O INTERBANK 


Número de mi tarjeta: [TT TT] 11111111111111111111] 
Fecha de caducidad Firma 


NOMBRE 
DIRECCION 
CIUDAD 

PROVINCIA 


(cada tapa es para 6 ejemplares) 


PR ONG UNE A MAS 


SISTEMA PERIODICO 


El programa consta de tres partes: 

+ Sistema Periódico. Esta opción nos da a elegir entre filas, columnas o grupos. Las filas están 
numeradas de 1 a 7 y corresponden a cada uno de los siete periodos. Las columnas se nombran 
Ла, 2a,... о 1b, 2b,... о 0 para el grupo de los gases nobles. En la opción de grupos aparecen casi 

todos los grupos convencionales como alcalinos, alcalino-térreos, etc. 
e Problemas químicos. Esta opción comprende dos casos: estructuras electrónicas y pesos 
moleculares. La estructura se halla por la regla de Moeller sin ninguna complicación ni error. 

+ Búsqueda de elementos. Se realiza por número atómico, nombre o símbolo químico. En el 
primer caso es mucho más rápido, ya que no tiene que leer los nombres, sino que va 
directamente a la línea DATA donde se encuentran. Si buscamos los datos por el nombre 
tendremos que poner la primera letra con mayúscula y las demás con minúsculas. La búsqueda 
por símbolo requiere que éste se escriba en la forma tradicional, la primera letra con mayúscula 
y la segunda con minúscula. 


Fernando Arderius Martín 


10 REM FERNANDO ARDERIUS MARIN ASH 1 : FLASH 03" -BUSQUEDA D во TO 2 


20 BORDER 1: PAPER 3: CLS E ELEMENTOS. 2108 PRINT АТ 9,10;"La fila "ifi 
INK à 20 PRINT AT 21,0: PAPER О; INK " GO SUB 2120+#11а: PRI 
CLEAR 64999: DIM с%(2,16) FERNANDO ARDERIUS MARIN PAPER O; INK 744% 
FOR х=65000 TO 65 " 20: INPU ra 7(s 
READ a: POKE ) PAUSE 0: LET i$-INKEYS Уп) "; LINE x$: IF «$-"s" OR х= 


DATA 


175,176,9: O IF CODE 14549 OR CODE 14>51 "S" THEN 80 TO 2100 


> x THEN 60 TO 250 2115 IF x£-"n" OR x$="N" THEN G 
„70 DATA 1,201,120,254,21,56,1, 250 БЕЕР .1,50: GO TO 2000»VAL а TO 2000 
201 is 2120 60 TO 2110 

„80 DATA-205,158,14,197,6,0,9,1 00 REM sistema periodico. 2121 LET w$= 


9з 2010 CLS : PRINT INVERSE 1; 
85 DATA 610.205, 158 5 


He 
RETURN. 


5 EMA PERIODICO. "s 2122 LET ws="Li,Be,E,C,N,O,F,Ne 
АЯ 8 E DUE SEE Ө "i RETURN 
90 DATA 0,9,209,1,0,7, 9.238 2020 PRINT AT 8.4: FLASH 1 3 LET ws="Na,Mg,Al,S1,P.S,P,S 
100 DATA 9,229,614,136, 18,21, 18 FLASH O;"- Elementos por filas. ‚С1,Аг "з RETURN 
SDN P632 peat de ¡AT 10,4; FLASH 13"2% FLASH 05% 2124 LET ws="k,Ca,Sc,Ti,V,Cr Mn, 
2 - Elementos por columnas.";AT 12 Fe,Co,Ni,Cu, Zn,Ga,Ge, Ae, Se, Er , 
110 DATA 14: FLASH 1;"5"; FLASH Elem RETURN 
"MS DAT entos por grupo LET w$-"Rb,Sr ,Y, Zr Nb, Mo, Tc 
120 DATA O PRINT АТ 19.10:"s para sali .Pd,Ag,Cd.InjSn,Sb,Te,1, Xe 
, ¿AT 21,0: PAPER Oi" 
130 DATA : RETURN 
ol 940 PAUSE О: LET is-INKEYP: IF 26 LET и ,Ba,La,Ce,Pr,Nd,P 
200 CLS : PRINT INVERSE i: is-"s" THEN 80 TO 200 m,Sm,Eu,Gd, Tb Dy Ho, Er , Tm, Yb,Luy 
SISTEMA PERIODICO. 2050 IF CODE 1%<49 OR CODE 1251 [Lm r Pt, Au,Hg, Tl,Pb, 


INVERSE О THEN GO TO 2040 Bi POA! RETURN 
210 PRINT АТ 8,4: FLASH 1i" 2060 BEEP .1,50: GO TO 2050+50#V 2127 LET w: „Ra, Ac, Th, Pa, U, Np 
FLASH 0;" -SISTEMA PERIODICO AL i$ ¿Pus Am, Cm, Bk, C£ ,Еѕ, Fm, Md, No,Lw 

T 10,4; FLASH 1" FLASH 0| 2100 CLS : INPUT "Fila ?(1 a 7) ": RETURN 
PROBLEMAS QUIMICOS. "AT 12, fila: IF filasi OR filaò7 THEN 2150 CLS : INPUT "Columna 


س 


ri LE OFRECE LOS MEJORES LIBROS‏ اا ا الل 


PARA SU ORDENADOR 


==] 
LOS MEJORES | 


Y 


P.V.P. 750 PTAS. 

(IVA INCLUIDO) 

Descubre los misterios de 1 
бп de una forma 


áficos 
lleva al BASIC 


a el me 


programa aprovechamiento de sus 
sencilla, con ejemplos, posibilidades 
programas y organigramas (200 páginas, tamaño 
(110 páginas, tamaño 13,5 x 21) 15,5 x 21,5) 


P.V.P. 800 PTAS. 
VA INCLUIDC 
na inestimable a: 
mentará la que 
rciona el manual de 
1denador 

(108 páginas tamaño 
21,5) 


P.V.P. 750 PTAS. 
(IVA INCLUIDO) 
Un libro es; 


P.V.P. 900 PTAS. 
(IVA INCLUI 
Un compe: 


P.V.P. 800 PTAS. 
VA INCLUIDO 
Muestra una visión más 
mp с 
cionamiento del jue 


>» 


jugando las importa 
características del BAS 
(258 ра 
lt 


PARA EL 2) n 1 
PARA EL COMMOL 
de П 
L MANUAL II (РМР. 800) -0 
. 1 stos de envio) | 
El importe lo abonaré POR CHEQUE D N MI TARJETA ] 
П ng [| СЕ CREDITO O American Express O visa O Interbank O 
9. 9.01. / p Mere зве mitra: | | Г Hi 
Г | NOMBF 1 
LO, > 
1 6 f сорар = I 
| PROVINCIA z z C.P. I 
! шып атн але олын ашна Ш т а с н а БА һаа a e 


IF LEN р+>2 THEN 


2160 IF рї="1а" THEN LET 
LiNak RbCsFr": GO TO 2182 
2161 IF р?="2а" THEN LET ws" 
BeMgCaSrBaRa': GO TO 2182 
2162 IF ps="3a" THEN LET 
Scy Гайс": 60 TO 2182 
2163 IF ps="4a" THEN LET ws=" 
TiZrHfCeTh": GO TO 2182 
2164 IF p$-"Sa" THEN LET us: 
V NbTaPrPa": GO TO 2182 
2165 IF p$-"5a" THEN LET 
CrMoWw NdU ": GO TO 2182 


2166 IF ps="7a" THEN LET 
MnTcRePmNp": GO TO 2182 

2167 IF рї="Ва" THEN LET c#(1)= 

“ FeRuüsSmPu": LET сї(2)=" 
CoRhIrEuAm": LET cs(3 

PRINT AT 7,7; "La 

а FOR «=1 ТО 31 

FOR y=1 TO LEN ws 


PRINT AT 10+(y/2) Lie Gre 

PAPER 03 INK (4+) jur (y TO y 

NEXT y: NEXT x: BEEP .1,2 

60 TO 2190 

2158 IF ps="1b" THEN LET ws-" 
CuagauTbR": GO TO 2182 

2159 IF p$-"2b" THEN LET wt 
ZntdHgDyCé": GO TO 2182 


2170 IF ps="3b" THEN LET ws 
В AlGaLnTiHoTs": GO TO 2182 
2171 IF p$-"4b" THEN LET ws=" 


C SiBeSnPbErFm": GO TO 2182 
2172 IF ps-"Sb" THEN LET w$-" 
N P AsSbBiTmMd": 6O TO 2182 


2173 IF pē="bb" THEN LET ше" 
8 5 SeTePoYbNo": GO TO 2182 
2174 IF p$="7U" THEN LET wc" 


F CIBrI AtLulw": GO TO 2182 
2175 IF ps="0" THEN LET us 
eárkrKeRnHa??": GO TO 2182 
2180 PRINT " Los grupos 
les son:i"''; PAPER 2; INK 
a3a4aSaéaBa1b2b3b4bSbéb7b y о" 


ВЕЕР .1,-30: PRINT JO:" 

pulsa tecla. PAUSE 
0: GD TO 2150 

2182 CLS 2 PRINT AT 7,7:"La colu 
mna "ipfi" esi" 


2184 FÜR TO LEN w* STEP 2 
2186 PRINT АТ 10+0:/2),15: PAPER 
Оз INK 75w$6t TO x1) 
2188 NEXT x: BEEP .1,20 


190 INPUT "Otra columna ?(/n) 
LINE x$: IF s" OR хәне" 

THEN 80 TO 2150 

2192 IF n" OR x THEN 6 


0 TO 2000 

2194 60 TO 2190 

2200 CLS : INPUT "Grupo 

E оғ 

2205 IF gf-"alcalinos" OR gy 

calinos" THEN LET wt="H,Li,Na,K 

,.Rb,Ce.Fr": BO TO 2300 

alcalino-terreos" OR 
Alcalino-terreos” THEN LET 

wP-"Be.Mg,Ca,Sr.Ba,Ra": GO TO 2 


IF gs="gases nobles" OR g*- 
Gases nobles" THEN LET wf-"He, 
Ne,àr,Kr,Xe.Rn": GO TO 2300 

2208 IF gs="halogenos" OR gf-"Ha 
logenos" THEN LET ws="F,C1,1,At 
: 60 TO 2300 

2209 IF gt="tierras raras" OR gs 
"Tierras rarás" THEN GO SUB 
Об: LET ws GO TO 
2210 IF g$-"lantanidos E 
antanidos" THEN GO SUB 3000: LI 
T we=k#(1 TO LEN k$/2): GO ТО 2: 
2211 IF gs="actinidos" OR gf: 
tinidos" THEN 60 SUB 2000: LET 
WECES(LEN k$/2 ТО LEN k$): 60 TO 
2300 


2212 IF g$-"terreos" OR gs-"Terr 
eos" THEN LET ws-"B,Al,Ga,In,Tl 
": GO TO 2300 

2213 IF gf-"Carbonoideos" OR g$= 


“carbonoideos" THEN LET w: 
i,Ge,Sn,Fb": BU ТО 2300 
2214 IF g$-"nitrogenoideos" OR g 
3-"Nitrogenoideos" THEN LET w$= 
"N,P.As.Sb.Bi": GO TO 
2215 IF g£-"anfigenos 
figenos" THEN LET ws: 
,Po": 60 TO 2300 
2220 FOR TO 12: PRINT AT x,0 
PAPER 2: 


ES 


NEXT х 
2221 PRINT АТ O,0;"Los grupos po 
Sibles воп: "; PAPER 2; INK 6;''" 
Alcalinos" "Alcalino-terreos" '"T 
er reos" ' "Car bonoi deos" ' "Ni tragen 
Gideos"'"Anfigenos"'"Halogenos"* 
"Bases nobles"'"Tierras raras"'" 
Lantanidos" '"Actinidos" 


50 ВЕЕР .1,-20 
"puisa tecla 
GO TO 2200 
оо CLS 
LET езі 
2310 FOR » 
2315 LET filefilei: 
2320 BEEP .O1,e (INT (RND*3O)): 
PRINT PAPER О; INK 7;AT col,fil 
¡ut Os IF 411530 
LET co 
NEXT 
O PRINT AT &,0;"El grupo de 1 
ТОЗУ” өсін 

INPUT "Otro ?(s/n) "; LINI 
"s" ОК x£-"S" THEN G0 


PRINT 20:ТАВ 1 
PAUSE о: CLS : 


LET fil 


LET col=10 


Ne 


кə 


N" THEN 6 

2000 

80 TO 2350 

LET k$=" La,Ce,Pr,Nd,Fm,Sm, 

Eu,Gd,Tb,Dy, Er,Tm, Yb, Lu, Ac Th ,P. 

а, ,Np,Pu,Am,Cn, Bk EF ,Es,Fm,Md, 

Мо, Ца": RETURN 

4000 REM problemas quimicos 

4010 CLS : PRINT АТ 0,0: INVERSE 

p PROBLEMAS QUIMICOS. 
"; INVERSE 0 

4020 PRINT AT 9,4; FLASH 151 

FLASH 0; “- ESTRUCTURA ELECTRONIC 

AT 11,4; FLASH 1; "2"; FLASH 

- PESOS MOLECULARES. ";AT 19,1 

s para salir."¡AT 21,0; PAPER 


PAUSE О: LET i$=INKEY$: IF 
i*-"s" OR 14="S" THEN GO TO 200 
4040 IF CODE 1%<49 OR CODE 14250 
THEN Gü TO 4030 

4050 ВЕЕР .1,3 
VAL is 


4250 CLS : INPUT "Numero atomico 


50 TO 4050+: 


4295 IF п<0 OR n>105 THEN GO TO 
4250 

4260 DIM x*(19,2): DIM d(19): LE 
T cont-ü: LET fil LET color 
+ LET col=0 
4270 LET es 


sspspsdpsdpsfdpsfdp": 
1131315515317531753" 
=1 TO 19 

КЕТЕРІ 

AL dE (w2 

ented (x) 

THEN GO TO 4300 
THEN LET sobra: 


99 


4302 LET 411-4114: LET e=- 
4305 ВЕЕР .01,ex(INT (RND*30)) 
PRINT AT 7*col,fil; INK color; 
INK color*S;d(y): IF fi 
THEN LET fil=0: LET co: 
4310 NEXT y 

4315 PRINT AT 2,1:"-La estructur 
a electronica del" "elemento de 
num. atomico es 
4320 INPUT "Otra ?(в/п) "; LINE 


gi: IF gr="s" OR qó="S" THEN GO 
TO 4250 
4330 IF цї="п" OR qs="N" THEN C 


LEAR : 60 ТО 4000 
4340 GO TO 43: 
4450 CLS : INPUT "Compuesto ? "; 
LINE ys: LET 1-1ЕМ ys: 
>INT (1/2) THEN 60 TO 4450 
4455 DIM #009: DIM козу: IF 1515 
THEN 80 TO 4450 


4460 LET о=0 

4461 FOR кеі TO 1 STEP LET o- 

өзі 

4462 IF уФ(иж1)=" " THEN LET ts 
$00: 60 TO 4464 

4462 LET tey OO жут OLL) 


4464 FOR g=1 TO 105 
4465 RESTORE 9000+g 
4466 READ п,п%,п%,п,у%,е,с2,у,42 


4467 IF n$-tt THEN GO TO 4470 
4469 NEXT ә: GO TO 4450 

4470 LET £(o)*INT (m*.5) 

4472 LET k(0)=VAL y$ G2) 

4475 NEXT 

4477 LET pesoso 


4480 FÜR x=1 TO өзі 
4485 LET резо=резо+# (и) жЕ 00) 
4490 NEXT 

4495 ВЕЕР .1,20: PRINT AT 3,07" 


La masa del compuesto 
4 "ipesor" u 


ys 


INPUT "Otra ?(s/n) LINE 
IF xf-"s" OR x£-"8" THEN GO 

TO 4450 

4510 IF OR ks="N" THEN G 


о TO 4000 
6000 REM busqueda de elementos 
6010 CLS 


6020 PRINT INVERSE 1:" Buso 
UEDA DE ELEMENTOS. ; INVERS 
E o 

6030 PRINT AT 8,2; FLASH 1919; 
FLASH оз" -BUSQUEDA FOR NUM. ATOM 
ICO. "¡AT 10,2; FLASH 15"2"; FLAS 


-BUSQUEDA POR NOMBRE. “¡AT 
FLASH 1 FLASH 03" -BU 


O RA 
6050 PAUSE 0: LET if-INKEYt: IF 
is-"s" OR 1$="S" THEN GO TO 200 


6060 IF CODE 1449 OR CODE 14251 
THEN 00 TO 2050 

6070 CLS : BEEP .1,30: GO TO 700 
O+100#VAL i$ 

7100 INPUT "N. atomico? 
7110 IF п<0 OR п>105 THEN 
7100 

7120 RESTORE 7000+n 

7130 READ n,n$,m$,n,vf,r,c2,v,€2 
‚е 

7140 вй TO 8000 

7200 INPUT "Nombre? "; LINE g$ 
7210 FOR TO 105 

7215 RESTORE 9000+: 


80 TO 


سے ف 


7220 READ n,nf.mf,m,v$,r, 
уе: IF gs=mf THEN BO TO E000 
7230 NEXT 

7240 FRINT J0 No existe ese 
elementa pulsa t Г 
ес1а": PAUSE 0: CLS : GO TO 7200 


ALI ЕЕ E 
7400 INPUT "Simbolo? "; LINE s$ a = 
7410 FOR та 105 = 
7415 RESTORE 9000+ 


7420 READ n,n$, mf, n, vr yc 

‚е: IF asant THEN” GU TO B 
J NEXT x 2 

7440 PRINT 20 Na өкінбе as 

8 sabeis Wes Жел» Жақа ҚҰЖ E 

ecla": PAUSE О: CLS : GO TO 7400 ATOMICI LUMEN ATOMICO 


8000 BORDER О: PAPER О: CLS : IN 1.4 15.5 


K 7: FOR «=O ТО 3: PRINT AT x,0: 
PAPER 130 
NEXT OUALEMTE AFIMICA 
BOLO FOR «=4 TO В: PRINT - 
PAPER 4;" 
i RAT хур 


NEXT 
LEN m$/2 
729,1 


T IJIDA 


S040 FOR #=1 TO LEN m 
BOSO РОКЕ 28, (#+с) ж 

8060 PRINT PAPER 15AT 1,(f+c) нет -— 
PEE © PRINT AT 12, 


RADIO ATOMICÛ 
17,16; "AFINIDAD"; AT 
NEXT 8210 PRINT AT 13,16 
8170 PRINT AT 9,12; PAPER О; INK К 7; "VOLUMEN ATOMIC 


8070 RANDOMIZE USR 65000 
8075 NEXT f 
Боно POKE 2 


8090 LET 
B100 FOR 73 "VALENCIAS"¿AT 11, 14-LEN v$/2 17,0; "RADIO COVALENTE 

ivi 
B110 POKE 237 8180 FOR x=13 TO 16: PRINT AT x, 
8120 INF PRINT PAPER ZAT &, О; PAPER mu PRINT AT 21,0; PAPER 
(#+е)ж2:п (€) sibs PAPER 15 
8130 RANDOMIZE USR 65000 "+ NEXT f 
B140 NEXT f 8190 FOR » : PRINT AT x, O PRINT AT 21,0: INK 03 PAPER 
B150 PRINT INK 0; Рај 5, c ER 17% "ат BRIGHT 1; "ELECTRONEGATIVIDAD 
Oj "NUMERO";AT 6,0; "ATOMICO: "¿m3 A PAPER "ue 


SUSCRIBASE 
POR TELEFONO 
x Inás fácil, 

x más cómodo, 

x más rápido 


Telf. (91) 733 79 69 


7 dias por semana, 24 horas a su servicio 


SUSCRIBASE A 


50 


8240 INPUT "Otro 7(s/n) "s L 


OR x$2"S" THEN 


ci IF 5 
PER 3 : BORDER 1: INK € 

TO é0 

8250 IF "n" OR "N" THEN È 
APER BORDER INK в 


0 TO 200 
8260 GO TO B24 


y "Litio" 0.74, "1 
59.8.1 

Berilio",9.01, 
%,1.42,0.99,5.0,-27.6,1 


в", “Воға",10.81,"2 


05 DATA 


,0.98,0.82,4.6,—17.3 

9008 DATA 4, "C", "Carbono", 1 
44/2" ,0.914,0.77,5. 2,7122. 342. 
9007 DATA I^, "Nitrogeno" ‚14.0 


,0:92,0.75,17 


1,5 


9008 рата H,"Ü","Dxigeno",16."—1 


4.0,-141.3,3.5 


9009 DATA 9."F","Fluor А 

0,0.72,17. 15-327. 

7010 DATA "Ne", "Neon" ,20, 18, " 
4041.21, 16.0, 28. 


SOll DATA 14, "№ 
41:90,4.54,2 


2 DATA 
1.60, 


9013 DATA 12 "inia" 
98, "3* 1.43, 1. 18,10. 0,719, 3 
$014 DATA 14, ,"Bilicio" 
9, 4 V1. 11,12. 1,-121 


9015 DATA 


Ole DATA Le 


117 DATA 17, "Cl", "Cloro 
14-1/7/5",0,0.99,18.7,-349.2,3 
9018 DATA 18, "Ar", "Argon" 
70*,0,1. 74,24. 2,25. 7,0 
9019 DATA 19, "K^, "Potasio" 39.10 
yag 5, 1.96,45.3,-45.4,0.8 
9020 DATA 20, "Са", "Calcio" ,40. 08 
97,1.74,29.9,1.86,1 
3021 DATA zi, "Sc", "Éscandio" 44. 
36, .44,15.0,70.5, 1.2 
Sox "Titanio", 
о," 1.47,1.38,10. 6,1, 93,1 
9023 DATA 23,"V"," Vanadio" 50. 94 
‚"5/4/3/2" ,1i 80.8,1.6 


152,45/ 


DATA 25,"Mn","Manganeso 
2/7/3/4]8" 1135 


DATA 26,"Fe","Hierra',S5. 85 
,1.26,0,7.1,44.5,1.8 
27 DATA 27,"Co","Cobalto",58.9 
5,42/5%,1.2510,6.7,-102,1.8 


9028 DATA 28, "№", "Niquel",58.71 
‚"2/4/5" ,1.24,0,6.6,-156 
9029 DATA 29,"Cy","Cobre 54, 


2/1",1.28,1.38,7.1,-17 
4 "CIRE 
2",1.38,1.31,9.2,8.7,1.6 

31 DATA 31,"Ga","Balio",69.72, 
1,41,1.26,11.8,-55.5,1.6 
„ "Ge" , "Germanio" 
59, 94/2" ,1.37,1. 22,13. 6,7129, 1 


9030 DATA 3 


55. 


"As", "Arsenico",74 
31:391. 19, 13.1,-105,2 
DATA 34, "Se", "Selenio",78.9 
6," 5/4/-2" ,1.40,1. 16,16. 5,-203,2 
E 


DATA 35, “Br","Bromo",79.91, 
%-1/5"|0,1.14,25.5,-524.1 
9036 DATA зе, "Ке", "Сеіреоп" 
),"0" ,0,1.89,52.2,40 
9057 DATA 37, "Rb", "Rubidio",B5.4 
7,"1",2.48,2: 11,58. 9,— 8 
9038 DATA 38, "Sr", "Estroncio",87 
:82,"2",2.1541.92,55.7,145,1 
9039 DATA 39,"Y","Ytrio",88.91," 
3",1.78,1.62,19.8,38.6,1.7 

39040 DATA 40, "Zr","Circonio",91. 
22,"4/3/2" ,1.60,1.48, 14.1, 
1.4 

9041 DATA 41,"Nb","Niobio",92,91 
1"5/3/4/2",1.46,0,10,8,-109,1.6 
9042 рата 42,"Mo","Molibdeno",9S 
.94,"6/3/8/4" ,1.39,0,9.4,-114, 1. 
в 

9043 рата 43,"Te","Tecnecio",99, 
"7/6/4",1.36,0,0,-98.5,1.9 

9044 DATA 44,"Ru","Rutenio",101. 
07,"3/4/8/6/2",1.34,0,8.3,-145,2 


9045 DATA 45,"Rh",“Rodio",102.91 
,"2".1.34,0,0.3,-162,2.2 

9046 DATA 46,"Pd",“Paladio",106. 
4,"2/4/3",1.37,0,8.9,-98.5,2.2 
9047 DATA 47,"Ag","Plata",107.87 
141/2",1.44,1.52,10.2,-192,1.9 
9048 LATA 48, "Са", "Сабтіо",112.4 
0,"2/1" 1. 54, 1,48, 

9049 DATA 49,"In", 
11.66,1.44,15.7,-19.2,1.7 
9050 DATA 50,"5п 
9,"4/2" 1.62, 1.41, 16. 
9051 DATA 51,"Sb", "Antimonio" 
1.704 55/5" 11.59 ,1. 

5,1.9 


Teluro",127.6 
20.8,-189,2 


9052 DATA 53 
%-1/8/7",0,1 
9054 DATA 54 
,"0",0,2.09 
9055 DATA 55, "Се", "Cesio", 
$"1",2.67,2.28,70,-36.7,0.7 
9056 DATA S6,"Ea","Bario",1 
402",2.22,1.98,39,46.4,0.9 
9057 DATA 57,"La","Lantano",138. 
91,"3",1.87,1.69,2: 53.1,121 
9058 DATA 58,"Ce","Cerio",140.12 
,"3/4",1.81,1.65,21.0,0,1.1 
9059 DATA 59,"Pr*,"Praseodimio", 
140.91,"3/4",1.82,1.65,20.8,0,1. 
1 


" "Iodo", 126.90," 
25.7,-295.2,2.5 
Xe" , "Xenon" , 131.30 
12.9,45.5,0 


91 


9050 рата 60, "Nd", 'Neodi mio", 144 
24,"3",1.82,1.69,20.6,0,1.2 


9061 DATA 61,"Fm","Promecio",147 


DATA 62,"Sm", "Samario", 150. 


/2",1.В1,1.66,19.9,0,1. 
3 БАТА &3,"Eu","Europin",151. 
11.97, 1.85,28.9,0,0 

9054 DATA 54, "ба", "Вадо1іпіа",15 
7225019331079. 1:61, 19-90 LIT 
9065 DATA 65,"Tb","Terbio",158.9 
2,"2/4",1.80,1. 01-2 
SÓ66 DATA bé, "Dy 
1"3",1.80,1,59,19,0,0,0 
DATA 67,"Ho","Holmio",154.9 
11« 79,1. 88,18. 7,0,1-2 

9068 DATA &B,"Er","Erbio",167.26 
‚ 1.78,1.57,18.4,0,1. 
9059 DATA 69, "Tm" ,"Tulio" , 168.93 
0,4.77,1.56,18.4,0y1.2 


DATA 70,"Yb","Yterbio",17 
2,1.94,1.70,24.8,0,1.1 
9071 DATA 71,"Lu","Lutecio",174. 
97,53*21.75,1.86,17. 8,051. 
9072 DATA 72,"H£","Hafnio",178.4 
9,"4/3/2",1.87,0,15.6,60.8,1. 
9073 DATA 73,"Ta","Tantalio",180 
.98,484,1.49,0,10.2,-14.4,1.5 
9074 DATA 74, "Ы", "Nolframio",183 


88, 5/5/4/2" ,1.41,0,9. 83,119, 1 
27 

9075 DATA 
"7/5/58" 1. 
9076 DATA 
“4/8/8/3/2 
9077 DATA 

ИН 


Iridio", 
54,-190,2.2 


Platino",195, 
9,0,9.10,-247,2.2 
DATA 79, "аш". "Ого" 195.97, 
3/1",1.46,1.50,10,2,-270,2.4 


8 DATA 78 
1 


pr José є Tomás 


ENANO, DÉJAME LA CINTA DE 
JUEGOS INTELIGENTES 


A VECES ME DA ASCO 
PEDIRLE LAS со5А5 


TODOSPECTRUM es una publi- 
cación mensual que le ayudará a 


obtener el máximo partido a su 
SPECTRUM y al ZX 81. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE A 


Todospectrum 
poia 
Fcowpurm | Purac] 


epit 


ADEMAS, le hacemos un 25 % DE DESCUENTO 
sobre el precio real de suscripción (12 nümeros) 


VALOR REAL DE OFERTA ESPECIAL 
SUSCRIPCION DE SUSCRIPCION USTED AHORRA 
23:68 vras. 2.700 PTAS. 900 PTAs. 


APROVECHE AHORA esta oportunidad irrepetible para suscribirse a TO- 
DOSPECTRUM. Envie HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Deposítela en el buzón más cercano. Inmediata- 
mente recibirá su primer ejemplar de TODOSPECTRUM más el REGALO. 


Bravo Murillo, 377 


28020 MADRID 


9080 DATA во 
TANIN: 


"Hg", "Mercurio" „200 
7,1.49,14.8,18.0, 


"Talio",204.3 
11.71,1.48,17.2,50.4,1.8 


"нь", 
4" ,1.78,1,47, 18. 


lomo" ,207,19 
-99.5,1.8 


DATA 83,"Bi","Bismuto" 
/$" ,1.70,1. 46,21 


DATA 84,"Po","Polonio' 
446/2" 1. T6 40,22. 7,- 12742 


DATA B5,"At","Astato", 210," 
5/3/1",0,0,0,-270,2.2 


9085 DATA 86,"Rn","Radon",222,"0 
19,2. 14,0,0,0 
9087 DATA 97, "Fr", "Francio", 223, 


"1",0,0,0,€ 


9088 DATA 88, "Ra", "Radio",226,"2 
",0,0,45,0,0:9 

9089 DATA 89,"Ac","Actinio* 
"3" ,1.88,0,0,0,1.1 

9090 DATA 90,"Th","Torio",2 
1"9/3/2",1.80,1.65,19.9,0,1 


9091 DATA 91,"Pa","Protoactinio 
,231,"5/4",1.61,0,15.0,0,1.5 
9092 DATA 92,"U","Uranio",238.04 


1"6/4/3/3",1.38,1.42,12.5,0,1.7 


9093 DATA Np", "Neptuno", 237, 
"B/4/5/2" ,1. $,0,21. 1,051. 
9094 DATA 94,"Pu","Flutonio",242 


$"4/6/3/8" ,1.51,0,0,0,0 


9095 DATA 95,"Am","Americio" 
з"2/4/8/6",1,73,0,0,0,0 
9095 DATA 96,"Cm", "Curio" 
",0,0,0 


9097 DATA 97,"Bk","Berkelio",247 
2115/4" ,0,0,0,0,0 
9098 DATA 9в,"Сғ 

10,0,0:0,0 
DATA 99,"Es","Einstenio",25 
",0,0,0,0,0 


Californio",2 


9100 DATA 100,"Fm","Fermio",253, 


5",0,0,0,0,0 


9101 DATA 101,"Md","Mendelevio", 
255," 


9102 DATA 10 


No" ,"Nobel io" 


"3/2" ,0,0,0,0 
9105 DATA 103, 
57, $040, 


Lw" ,"Laurencio" 


9104 DATA 104,"Ku","Kurchatovio" 
19,"-",0,0,0,0 

9105 DATA 108, 
“,0,0,0,0,0 


"Ha" ,"Hahni o" 


1 REM MasterMIND 1985 Perea 


Software 
10 LET bi RESTORE : FOR #=0 
SR "a" TO USR "£"+7: READ g: РОК 
E f.gr NEXT f: DIM p(4,2): FOR f 
TO 4: READ p(f,2),p(F,1): МЕХ 


í 
20 DATA 0,9.9,9+255,9,9,9,16,0 
14,2,255,0,9,9,128,192,160,144,1 
125,121,129,4,2,1,4,255.0.254 


) DATA 120,9,9,9+255,9,127,62 
9,195,101,145,137,132,2,1,1,6 
10:,9.255,9,0.0,192,48,12,2,255,0 
19,9 

40 DATA 12,64,128,0,255,9, 127, 
2,255,129,9,9,9+9+1+9+63,66,129 
19.256,0,126,50,252,2,1,0,4,4.2, 
4 

50 DATA 0,7,31,63,9,127,9,9+0, 
224,248,252,220,258,0,9,127,9.0. 
59,20,21,7,0,238,8,8,220,60,246, 
224,0 

60 DATA 0,7,24,32,9,64,9,9,0,2 
24,24,4,9,2,9,0,64,0,9,32.0,24,7 
10,2,9.0,4,9,24,224,0 

90 DATA -4,4,-4,6,-2,4,-2,6 

100 BORDER 1: BRIGHT 0: INVERSE 


Sf: DRAW 160+10*f,0: DRAW 0,4 
041081: DRAM -168-10%f,0: DRAW О 
1-40-10: NEXT + 


125 IF bn-2 THEN INPUT "Blanco 
y negro ? ^"; LINE af: LET af-( 
ase" ") (1): LET bn=as="s" OR af= 


"в" 


О: OVER б: FLASH О: PAPER 1: IN 
K 7: CLS : PRINT PAPER 2: INK 7 
-(5 AND bn42); FLASH 1:" 

FARA EL CASSETTE “: DIM s 
$052) 

110 PRINT АТ 10,5:"MM QR MASTE 
к GR MM OP ST MI 
ND ST ОР":АТ 13,5; 1985 Perea 

Software";AT 21,0; PAPER 

120 FDR TO 4: PLOT 40 


MASTERMIND 


La versión de este conocido juego realizada por Juan І. Perea nos da únicamente seis intentos 
para acertar la combinación correcta. Pero si la paciencia no es vuestro fuerte, podéis alterar el 
programa para que admita un máximo de oportunidades. 

Dispone de opciones para televisor en color o en blanco y negro y la presentación es 
inmejorable. Además, para que todos os decidáis a teclearlo, el listado es considerablemente 


breve. 


130 IF INFEYt-"" THEN 
140 CLS : DIM ns(a 


ва то 13 


: FOR £21 TO 


4 
150 LET NsCf)=STRE (1+INT (RND& 
&)): FOR gel TO 4-1: IF nf(f)enf 
(g) THEN 6O TO 150 

160 NEXT 9: NEXT + 

200 BORDER 4: PAPER 4: INK 0: С 
LS + PAPER 7: FOR TO 19: PRI 


NT AT #,б;з%:АТ 4,2 
R MIND ^(£-2): NEXT f 


mini MASTE 


210 PRINT AT 9,2;"ав er 
GH то KL": DIM f$(6,4): LE 

T ns 

1000 LET n=n+1: IF n^& THEN GO 

TO 7000 


1010 PLOT n*40-36,2 
DRAW 0,127: DRAW - 
1020 LET clen«S-5: LET LET 
FOR 4-11 TO 17 STEP 2: PRIN 
T AT F Cli "OR" AT f*i,cli"T": N 


DRAW 29,0: 
9,0: DRAM 0, 


1030 LET h-h*i: IF һ=5 THEN LET 
hei: LET 
1040 LET 1n-942«h 

1050 PRINT ІМК 8; OVER 15AT ln, 
cl;"OR";AT 1n*1,cl; "ST" 

1055 LET а%-ІМКЕУФ: IF a$-CHRf 1 
3 THEN GO TO 1300 


1060 IF ая<"1" OR a$ò"6" THEN F 
OR 4-1 TO 5: NEXT f: GO TO 1050 
1070 ВЕЕР .1,20: LET ҒЖ(п,һ)ат: 
INK VAL аз: GO SUB 5000 


1080 IF INKEYs«»af THEN 
030 

1090 G0 TO 1080 
1300 IF NOT i THEN 

: NEXT f: GO ТО 1050 
1310 FOR #=1 TO 3: FOR д=#+1 TO 
4: IF £$(n,f)-£t(n,g) THEN 50 T 
0 1055 


G0 TO і 


FOR #=1 TO 4 


1320 NEXT g: NEXT f: INK 
ив 5000 

1330 ВЕЕР .1, ВЕЕР .2,10: LE 
T ng=0: LET Бс=пд: FOR +=1 TO 4 
IF n$(£)et3(n,F) THEN LET m 
9+1: NEXT f: GO TO 1360 


co s 


1340 FOR g=1 TO 4: IF n$t£) 
18) THEN LET be-bcel 

1350 NEXT g: NEXT f 

1360 DIM n(4): FOR f=1 TO ng 
1370 LET g=INT (RND*4)+1: IF h(g 
) THEN 60 TO 1570 

1380 LET hig PRINT AT p(g,1) 
yS*n*p (9,2); "МЫ" АТ pig 1) 41, Sn 
*p(g,2)i "OP": NEXT + 


1400 FOR #=1 TO bc 
1410 LET g=INT (RND*4)+1: IF híg 
) THEN 60 TO 1410 


1420 LET híg)=1: PRINT AT p(g,1) 
,S*n^p(g,2) "OR"; AT pig, 1) *1,S«n 
*p(g,2);" ST": NEXT + 

1500 IF ngí4 THEN INVERSE 1: FL 
ОТ n*40-25,20: DRAW 29,0: DRAW O 
‚127: DRAW -29,0: DRAW 0,-127: I 
NVERSE O: GO TO 1000 

2060 60 TO 7000 е 
5000 LET х=8*с1+7: LET y=166-8%1 
PRINT AT 1n,cl:"MH";AT 1n*i,c 
li"OP": IF bn THEN INVERSE 1: б 
O SUB 5947+PEEK С 

3 INK O: INVERSE € 
5100 RETURN 

6000 PLOT x+3,y: DRAW 0,6: RETUR 
N 

6001 PLOT x+3,y: 


0,3: DRAN 2,0 
3,0: RETURN 

6002 PLOT DRAW 7,0: BO SUB 
воой: DRAW PLOT з; Ф 
RAW -т,0: RETURN 


400: DO SUB 6000: PLOT x,y*ét DR 
АШ О, 1: DRAW 2,0: FETURN 


4004 PLOT DRAW 2,0: 
Ti DRAW 2,0: DRAW 0,2% 

2 RETURN 

4005 PLOT х,у: DRAW 0,3: 60 TO & 
004 

7000 IF п<7 THEN GO TO 8000 
7010 PRINT AT Q,O:sfis$iAT 0,05% 
La combinacion era :": FOR £71 T 
O 4: LET 1п=0: LET с1=##2+21: IN 
E VAL ntf): GO SUB 5000: NEXT f 


7020 GO TO B03 
8000 PRINT ат c taste la 
combinacion en " intento 
1)355( TO 22+(n=1)) 


STORE 9000: FOR f=1 TO n 
READ af! NEXT f: 4: PRINT 
AT 21,0:a$: BEEF 1,0: FOR #=1 T 

O 7: BEEP .03,20: NEXT f 

8040 IF INKEY$C>"" THEN GO TO à 


бао 


0050 PAUSE 1: PAUSE О: GO TO 100 
9000 DATA "Has tenido mucha suer 
të", "Eso es suerte","Todo un тае 
stra", "Buena vista","Psch... Del 
monton","Muy apurado","Lo tuyo 
9990 CLEAR : SAVE "MasterMIND" 
INE 10 
9909 BRIGHT 0: BORDER 7: PAPER 7 
: INK Of CLS 


Uti 


DINAMICA 


ando el desarrollo en serie de Taylor, el programa calcula la posición de un móvil cuyo 


movimiento está regido por ecuaciones más o menos complejas. Tras la presentación e 
instrucciones solicita la introducción de la expresión de la aceleración en cada una de sus 
componentes espaciales (ax, ay, az). La estructura del programa está claramente expuesta en el 
mismo por medio de sentencias REM. 


9 REM ENTRADA DE DATOS 
10 PRINT AT 20,0;" Introduzca 
las aceleraciones. " 


15 INPUT "Ax-"; LINE a£: INPUT 
LINE bs: INPUT "Аге"; LI 
bi-"" OR c$="" 


THEN ВЕЕР 
0 PRINT 
cion inicial. 
INPUT "х= 
INPUT "zz"jz 

30 PRINT АТ 20,0; "Introduzca 1 
a velocidad inicial." 

35 INPUT " 3 INPUT "У 
vi INPUT "Vz=" 

40 FRINT АТ 20,0;"Introduzca e 
1 incremento h. ; 

45 INPUT "hs";h 

50 PRINT АТ 20,0;"Introduzca e 
l intervalo de presentacion 
de resultados." 

55 INPUT “Intervalo="zint 

60 PRINT АТ 20,0;"Desea mensaj 


бо TO 10 
"Introduzca 1 


INPUT 


е de scroll? (s/n). ",, 

65 LET r$-INKEY$: IF гї="" THE 
N GU TO é5 

70 IF r$="s" OR r$-"S" THEN L 


ET sc=1: 6O TO B85 


75 IF r$4»"n" AND r<> 
во TO 65 


ТНЕМ 


80 LET s 
85 CLS 
90 LET t=0 
100 REM FUNCIONES 
110 DEF FN a(u,v,w 
120 DEF FN b(u,v,w 

130 DEF FN c(u,v, 
135 REM DERIVADAS 
140 DEF FN p(u,v,w,h)- (FN a(u-2 

*h,v,W) -BXFN a(u-h,v,w) *BKFN a(u 

rh, Vw) ЕМ a(u*Zxh,v,w) 2 /12/h 
150 DEF FN q(u,v,w,h) = (FN b(u,— 

ож ум) -B&FN b(u,-h*v,w) *BKFN b 

(ui, h*v,w) -FN b(u,2«h*v,w)) /12/h 

160 DEF FN r(u,v,w,h) =(ЕМ c(u,v 

¿AZAR REN с(мууун-Һ) MEN e (u 

ЗММ) -FN c Cu, v WE2xh)) /12/h 


165 REM CALCULO SERIE DE TAYLOR 
170 LET k=0 


180 LET k=k+1 
185 IF ІМКЕҮФ=СНЕФ 13 THEN GO 
TO 600 


190 LET t=t+h 

200 LET p-FN pu, v, w,1e-à): 
q=FN q(u,v,w,1e-&): 
us vw, le-ó 

210 LET 


LET 


su#h+h¥h#FN a(u, vw) 


/2*hkh*hkp/6 
220 LET ysy*vx*h*hXh&EN b(u, v,w) 
/23hkhhkq/6 


Juan Carlos Fabero 


230 LET zezew*h*h*h*FN c(u,v,w 
А f 


240 LET ucu*h*FN a(u,v,w) *h*h*p 


LET v-v*h*FN biu, vu) «hihq 


LET 


*h*FN c (u, v,u) + 


IF kcint/h THEN GO TO 180 


REM PRESENTACION RESULTADOS 
ny 


PRINT "t 


z 
290 PRINT " 


295 POKE 23492,PEE! 

20 80 TO 170 
340 REM INSTRUCCIONES 

350 CLS 

360 CLS : PRINT " Este programa 

se sirve del de- sarrollo en se 
rie de Taylor para" 

370 PRINT "calcular la posicion 

de un movilque se mueve bajo 4o 
s efectos deuna determinada fuer 
za (о fuer- zas)." 

380 PRINT " Solo debe introduci 
r las formu-las de las aceleraci 
ones que su-fre el movil en cada 

uno de los ejes cartesianos." 

390 PRINT '" Las formulas se al 
macenan coma cadenas alfanumeric 


23692жзс 


€ _ E ا‎ а. Гн. 


as,por lo queno deben contener n 
ingun error" 

400 PRINT "sintactico o se forz 
аға un men- saje С NONSENSE IN 
BASIC. 

410 PRINT " Por la misma razon, 
cuando la fuerza en una de las 
tres direc-ciones sea nula, deb 


e introducir""0"" y na simplemen 


te la cadena vacia. 
420 PRINT 21:47 1,8 
TECLA" 


PULSE UNA 


430 FOR n=0 TO 10000: IF INKEYS 
"THEN NEXT n F Я Я 2 a 
440 CLS * 5 = sca j 

450 PRINT " El programa le pedi 


ra el valor del incremento de ti 


empo para laserie de Taylor. 


460 PRINT " Cuanto mas pequeno mss = At OE 
sea h, mas preciso y lento sera 

el calculo 

470 PRINT '" Tambien se le ped 
ra cada cuan-tas unidades de tie 
тра quiere presentar los resul ае EUN “ә Е 
tados. " 

480 PRINT ''" Para detener el 

calcúbo) pulse ЕШТЕ 620 LET rt-INFEYf: IF rfe"" THE | 30% 

E ES қ se ua |М 80 TO 620 жі NEXT n 

TERRA AUT FARAT EBE ER O IF F¥=CHRE 32 THEN PRINT J | 770 PRINT "assures 
540 FOR n=o TO 2000: IF ІМКЕҮҒ= | 1:07 0,01, 42: GO TO 190 Бауды сс алды 

SU THEN. NEXT 5 640 IF rié5"p" AND ежезер" THEN | 780 PRINT АТ 4,0:"* RESOLUCIO 
545 REM dibujo de los ejes Боер МЕ TEO enos 

550 CLS : PLOT 127,87: DRAW 0,8 E arar GO THUS бе Кы ЫЙЫ: ву Pr 
і -8 а PL ' , 700 REM PARADA DE CINTA мамтсов 

б. CE 2 710 ВЕЕР .2,20 BOO PRINT АТ 12,0; Juan Carl 
рар FEST io iei MI ан 720 PRINT АТ 10,8; INK 0; PAPER | ав Fabero Jimene 413%" 
580 РКІМТ AT о, 1 АТ 10,28; ыз aid) CIBO 21347. 

БЕП, 730 FOR n=0 TO 400: IF INKEYS 810 FRINT AT 21,8 UNA TE 
MELLE " THEN NEXT n CLA 

% 740 PAPER 0: INF : BRIGHT О: B 820 FOR п=0 TO 400: IF INKEY$=" 
600 REM STOF ORDER 0: CLS " THEN XT n 

610 PRINT J1;0T O,0:" Pulse SPA | 750 PRINT "xxweeexieneeineeeee | 820 GO TO 360 
CE para continuar o — 'P' para + | eeeneeone 9999 CLEAR : SAVE "DINAMICA" LIN 
inalizar." 760 FOR n=1 TO 18: PRINT AT п,0 [Е 700 


ANUNCIESE Wr 


91) 733 96 62 
por BARCELONA 


MODULOS 93) 3014700 


Catálogo de Software 
para 


ordenadores 
personales 


Todo el Software disponible en el 
mercado reunido en un catálogo 
de 800 fichas 


1.° ENTREGA 
550 FICHAS 
+ FICHERO 


Resto en dos entregas 
trimestrales de 150 fichas 
cada una 


ON 8.000 PTAS. 


COPIE O RECORTE ESTE CUPON DE PEDIDO 
pa ыша шша исе ае ша шш шы mas seam nm nm Mas wm NUR Mam MM uw е теты 


І СОРОМ DE PEDIDO ү Е importe lo abonaré POR CHEQUE O CONTRA REEMBOLSO O CON MI Ё 
EU TE TARJETA DE CREDITO O 


SOLICITE HOY MISMO EL 
l E Е J| Cerguo 8.000 plas. a mi tarjeta American Express O Visa O Interbank O |] 


| CATALOGO DE SOFTWARE A 


5 ن‎ [| Nümero de mi tarjeta PO T І 

| infodis 5.2. vo : 

І Bravo Murillo, 377, 5.” A I CALLE І 

| 28020 MADRID 1 ciuDAD С.Р. І 
Р 

lo EN CONCESIONARIOS ІВМ ' ELO MIA DESOEIWADI ШЕ CS-2 ! 


SOFTWARE E 
dama roa som nca oh жыш سید‎ amem шн шәп шын мә ын шш шә LLL шы шан кып эш аш эз шы. 


Nüm. 3/300 ptas. 

El Spectrum por dentro. 
Quince programas, juegos 
y montajes Software. 


Nüm. 4/300 ptas. 

QL, el nuevo Sinclair. Die 
ciocho programas, juegos, 
montajes, ideas/Noveda 
des 


Núm. 5/300 ptas. 

Gráficos y sonido en el 
Spectrum/Libros/Software/ 
13 programas. 


Nüm. 6/300 ptas. 
Construya su propio jue 

90/13 programas y monta- 

ies/ideas/Software. 


Nüm. 7/300 ptas. 

Juegos inteligente: 
ware/ 11 programas/Li 
bros 


Nüm. 8/300 ptas. 

La aventura es la aventu- 
ra/12 programas/Juegos y 
montajes/Código тадиі- 
na. 


Nüm. 9/300 ptas. 

Construye tu propio jue 
go. Catorce programas pa- 
га el verano. Gráficos en el 
Spectrum 


Nüm. 10/300 ptas. 

Catorce programas edu 
cativos: geografía, cramer, 
gráficos, razones trigono 
métricas, elongación. Cûdi 
go máquina 


| Como crear ^ 

[| marcianos 
yotros 
monstruos 


Nüm. 11/300 ptas. 

Cómo crear marcianos y 
otros monstruos. 

Diez programas satélites 
de |йрйег, rescate, interés, 
círculo, préstamo hipoteca- 
rio. 


Completa tu colección de ZX. 
A continuación te resumimos el contenido de los ejemplares 
atrasados en existenci. 


Nüm. 12/300 ptas. 

Presentación del Spec- 
trum Plus. Forth, capítulo 1 
Gráficos en el Spectrum, 4 
parte. Libros. Programas y 
montajes. 


Nüm. 13/300 ptas. 

Guia del software para el 
Spectrum todos los progra: 
mas del mercado. Forth 
pitulo 2. Visitamos Sin- 
clair Research. Libros. Pro 
gramas. 


Nüm. 14/300 ptas. 

Cómo jugar al Hobbit 
Gráficos de funciones. Pro 
gramas de ajedrez. Cone- 
xiones con el P I/O. Progra- 
mas Multiplic, enseñar de 
leitando. Libros, Forth, ter 
cera parte. 


Nüm. 15/300 ptas. 
nuladc de v 
Forth, cuarta te. Monta- 
jes: Reloj digital para Spec. 
trum. BASIC para princi 
piantes. Libros. Programas. 


Núm. 16/300 ptas. 

Cassettes: solución a los 
problemas de grabación. 
Test de Psicología. Sistema 
de Desarrollo para el ZX 
81. Cinemática. Progra 
mí Animación Gráfica. 
BASIC para principiantes 
(2). Forth, quinta pa 


Nüm. 17/300 ptas. 

Mapa de Atic-Atac. Estira 
de caracteres. Dinámica de 
una partícula. Libros, OL 
Magazine. | Programas. 
Convertidor 


analógi 
gital con el P WO. 


JEMPLARES ATRASADOS 


Nüm. 20/300 ptas. Nüm. 22/300 ptas. 
Vacaciones conintormá- | Noticias. Teclados prole 
а Noticias. Prc rales. Critica. “Н; 


Núm. 18/300 ptas. 
85 


Nüm. 24/300 ptas. 


оше muy divert | bado? Programa iegos/Mapas del No- | Núm. 26/300 ptas. 
principiantes (3). Plot 5. Generación de | procesador de texto des of Yesod y Lords о! | Spectrum o OL, invasión 
Gráficos. Libros. Usua: rcuilo impreso. | neración de placas de cir- | Midnigh/¿Has. probado?/ | de los 128/6Coómo utilizar 
Dos Crítica iento агтоп | cuito impreso (segunda | Sois muy diveriidos/Usua- | mejor el microdrive?/Jue- 


parte). Programas QLe »/Ajuste de grálicas/Multi- | gos/Mapa del Dun Darach 
ñol, Quinie pectrum. | search/Programas/Monta- | y misión imposible/Progra 
BASIC para principiantes | je: inversor de video рага | mación.. estructurada/BA 
(6) ZX 81/5 


SIC. 


Nim. 19/300 ptas. x 
Mapa de Knight Lore. No- | Núm. 21/300 ptas. 
Mapa de Underwurlde. 


pro- | Núm. 23/300 ptas. 


1 ido? Programa especial Critica. ¿Has probado? 
de ventanas. Programas. El | barquitos. Sois muy diverli- | Profanation profanado. No- | Núm. 25/300 ptas. 
sofware que nos invade. | dos. Libros para el verano. | ticias. Discos para Spec-|  Juegos/Especial juegos, | Núm. 27/300 ptas. 
BASIC para principiantes o de fisica. BASIC | trum. Dossier educación: | Mapas y trucos de: High La vida de Sinclair/Pie- 


n para principiantes (5 Spectrum en el a 

valuación, Logo. Código Nighishade/¿Qué е 
A or e NIME máquina. Programación | Stack?/Programa especial/ | ARNHCM y SABOTEUR/ 
PARA SUS EJEMPLARES DE ZX pecial: quiniel Código — máquina/Loteria | Areas/BASIC para impre- 
(sin necesidad de encuadernación) a cámara primiliva/Stándares de la | sora/Elárea de variable yla 


,autoe- | way encounter, Tir Na Nog, | zas musicales para Spe 
el | trum/Juegos/Mapas (в! 


nt 


ADP ara hacer tu pedido, rellena el cupón adjunto, 
E 


74 13 o 


| Los ejemplares atrasados de ZX serán una fuente constante de c 
cimientos, ideas, soluciones y entretenimientos para el futuro. Todo lo 
anterior hace recomendable que los guardes ordenadamente en una de 
las tapas especiales para ZX. Cada tapa puede contener 6 ejemplares 
y cuesta solamente 650 ptas 
Ruego me envien los siguientes ejemplares atrasados de ZX 

al precio de 300 ptas. cada uno 


Por favor envien tapas) al precio de 650 ptas. cada una 


(+ gastos de envio) 


El importe lo аБолаге 
D contra reembolso O cheque adjunto O con mi tarjeta de crédito 
D American Expres O Visa O Interbank 


Fecha de caducidad 


Número de mi tarjeta [ T [ДЕДЕ ЕИ 
(en cada tomo | NOMBRE . 
se pueden DIRECCION Жекен ОНА A T Е 
encuadernar POBLACION .......... I OF 
6 nümeros) PROVINCIA . саса ан ее A E тү 


UNA APLICACION 


MATEMATICA 


Dentro del enorme mundo de las matemáticas 
encontramos una pequeña parcela dedicada 
a las sucesiones. En este artículo se va a tratar 
precisamente este tema, enfocado desde el punto 
de vista de la programación. 


AS sucesiones son conjuntos 

de números reales, ordenados 

y que, por lo general, obedecen 
una ley, relacionando el valor del 
elemento con el lugar que ocupan 
dentro de la sucesión. Esta regla o 
ley es una expresión matemática en 
la que «n» es un número natural. 

Uno de los conceptos más impor- 
tantos de las sucesiones es el de 
límite o punto de los reales en el 
cuál se cumple que la diferencia en- 
tre él y cualquier término lo sufi- 
cientemente avanzado es tan pe- 
queña o más que épsilon (siendo ép- 
silon un número positivo tan peque- 
ño como queramos). En caso de que 
dos o más puntos cumplan esta con- 
dición no se llamarán límites, sino 
puntos de acumulación 
Otros conceptos con los que tra- 

bajaremos son los de cota, decre- 
ciente, creciente, convergente, osci- 
lante... 


Problemas más importantes 


Al estudiar a fondo este tema en- 
contramos varios problemas, debi- 
dos a que nuestro micro, que lo sabe 
casi todo, no trabaja con números 
con infinito o épsilon. Tampoco ca 
cula algunas Operaciones común- 
mente usadas en matemáticas como 
es el caso de la potencia de un nú- 
mero negativo (—y î x). 

La solución al primer problema es 
bastante sencilla, aunque tiene sus 
limitaciones. Consiste en sustituir 
infinito por un número que cumpla 
que si le sumamos un real no dema- 
siado grande, ya que trabajaremos 
con cantidades no excesivas, nos de 
él mismo. Además, cuando lo multi- 
pliquemos por cualquier número, 


éste se almacena, por si queremos 
reducir o simplificar. 

Para buscar un número que cum- 
pla estas condiciones debemos re- 
currir a números con exponencial 
(como 1Е10): 


І-і-і 
1Е10+1=1Е10 
(I=infinito) 
21/3122/3 
2 1E10/3.1E10=2E10/3E10=2/3 
Ahora bien, tiene sus defectos: 
І-І-І-І 
1EIO--I—IEIO—IEI0—1E10—0 
Aün así, lo podemos usar, ya que 
en lo que nos ocupa ahora no nos va 
a limitar demasiado. 
Con épsilon ocurre lo mismo, 
usaremos 1Е-5. 
No nos vaa resultar tan fácil ense- 
ñar al ordendor a operar potencias 
de base negativa, aunque, como es 


muy «inteligente», aprenderá rápi- 
do. 


Observemos: 
(71) 17=—1 (1) t 10=1 
(-2)13--8 (-2)12-4 


De aquí podemos deducir que si 
el exponente es impar (columna iz- 
quierda), el resultado es siempre ne- 
gativo y si es par, positivo (siempre 
trabajando con bases negativas y ex- 
ponentes enteros). Ya hemos halla- 
do el signo, lo que queda es tan sólo 
la misma potencia con base positiva. 

Teniendo en cuenta estos facto- 
res podemos decir: 


(y)î х-у!х -2у! x si xes impar я 


Esto se entiende уа que 


( 0) ( 
0 AN 


Ñ 


À 


y t x—2y 1 x——y î x, es decir, si x esd 
impar el signo será negativo. 

Ahora debemos buscar una fi 
mula que dé 1 si x es impar ó 0 six es 
par, para que, multiplicando con 
—2y 1 x, la resta se lleva a cabo o no. 
y por lo tanto ambie de signo 
es necesario. 

fórmula 

INT хы ANT x 

Si xes impar, y por supuesto ente- 
ro, el primer término será una uni- 
dad mayor que el segundo. Por lo 
tanto su diferencia es uno. Si x es 
par ambos serán iguales 
do será 0 (como buscábamos). 

Para poner en práctica esto en el 
programa, debemos definir una fun- 
ción enn la que se introduzca y,x. 
Pero encontramos un error, si lo 
usamos con base positiva nos saldrá 
mal. Para subsanar este pequeño fa- 
llo tenemos que seguir el mismo cri- 
terio que antes; si es positivo no se 
restará (multiplicando por 0), y si es 
negativo se efectuará la operación 
(multiplicando por 1). 

La fórmula que nos puede ayudar 


ABS (у)-у 
2«ABS (у) 


Finalmente nos queda: 


FN r(yo BSy X—ABSy 
хж((ІМТ((х--1)/2-ІМТ(х/2)ж(АВ- 
у-у)/2%АВ5у)) 


El programa 


Aclarados estos conceptos, ро! 
mos pasar a la parte en la que el pro- 
tagon será el Spectrum, tanto de 
16 como de 48 K. 

Para empezar, apliquemos estas 
ideas que acabamos de defi- 
niendo «in» como infinito (—1E10), 
y la función r(y,x) como potencia de 
base positiva o negativa (líneas 80 y 
90). 

El programa está dividido en par- 
tes bien definidas para comprender 
mejor su funcionamiento 

—Dibujo de la pantalla (líneas 100 
y 220 y DATA's 1500). 

Se encarga de la representación 
inicial en nuestro monitor. No tiene 
nada en especial en cuanto a progra- 
mación. Su estructura es bastante 
sencilla utilizando tan sólo un bu- 
cle, combinado con sentencias 
READ. 

—Límites (230 а 290) y puntos de 
acumulación (300 a 440). 

Lo primero que debe saber esta 


rutina es si realmente hay límite, o 
por el contrario tenemos puntose de 
acumulación. 

Bajo la forma de término a(n), só- 
lo podemos hacer que halle puntos 
de acumulación usando la fórmula 
del signo alternante, es decir, ele- 
vando un número negativo a una 
potencia cuyo exponente sea unas 
veces par, otras impar. Para compro- 
bar si esto ocurre hemos de ver si 
continuamente va creciendo o de- 
creciendo la sucesión. En caso de 
que no se cumpla esta condición, 
podemos decir que tendrá puntos 
de acumulación, y el programa se 
desplazará a la línea 300. Esta fun- 
ción la realizan las líneas 240 y 250. 

Para hallar el límite, no encontra- 
mos más problema que operar con 
la función a(n), dando a «n» el valor 
de infinito (línea 270). 

Маз dificil resulta hallar los pun- 
tos de acumulación, ya que si usáse- 
mos el mismo sistema que para ha- 
llar el límite sólo podríamos hallar el 
punto de acumulación cuando «n» 
es par, al ser todos los números ex- 
ponenciales pares. 

Ahora bien, conociendo el punto 
de acumulación cuando n es igual a 
infinito, podemos hayar el otro por 
el método de aproximación por dife- 
rencias. Esto es, la diferencia entre 
un término par (a), y el punto de 
acumulación par, será igual a la dife- 
rencia entre el punto impar, y un 
término impar (b) cercano al ante- 
rior (a): 


P. par —f(a)=P. impar —f(b) 


(siendo «a» un número par y b=a+ 
1). 

De esta fórmula conocemos todo 
menos el p. impar que despejándolo 
sería. 


Р. impar =P. par —f(a) + f(b) 
(Líneas 300 a 440). 


Dentro de esta rutina, «límite o 
puntos de acumulación», también 
se incluye una SUBrutina situada 
desde la línea 2000 a la 2210. Esta ru- 
tina imprime el límite o los puntos 
de acumulación teniendo en cuenta 
que: 


si пит.>1Е10=1: todo número 
mayor que I es igual a I. Por lo tanto 
se imprimirá I. 


si пит.<—1Е10=—1: se imprimi- 
rá —I por la misma circunstancia. 


si nu.<1E-8= 
—Cotas 


: se imprimirá 0. 


superiores e inferiores 


) 
NO EXISTEN 
PUNTOS 


EXISTEN 
PUNTOS 
ps = арап) 


piza (impar) 
жа (n) ps 
psa (п) 


(impar) 
alin) + ps 
=a (in) 


(líneas 500 a 630). 

Se denominan cotas superiores, o 
mayoritarias de una sucesión, a los 
intervalos que cumplen que todos 
sus puntos son mayores que los ele- 
mentos de la sucesión. Llamamos 
cotas inferiores o minorantes cuan- 
do todos los puntos del intervalo 
son inferiores a los de la sucesión. 

Para indicar al ordenador qué 
puntos son cotas superiores, y cuá- 
les inferiores, debemos fijarnos 
que: si hay límites, sólo dos puntos, 
colocados en los estremos de la su- 
cesión. Pueden definir las cotas. El 


mayor de los dos nosindicará la cota 
superior, y el menor la inferioir. Es- 
tos puntos son el primer término y 
el límite. 

En caso de que haya puntos de 
acumulación, habrá cuatro puntos 
que puedan definir las cotas, los dos 
puntos de acumulación, el primer 
término y el segundo. 

Cuando alguna de las cotas defi- 
nida por el infinito, noi existirá tal 
intervalo, por lo que no existirán 
propiamente cotas. 

Para poner en práctica estos con- 
ceptos sguiremos unas fórmulas 


que son las que usa el programa des- 
de la línea 560 a la 590: 


al>a2, аха’ 


Sup.: si a>al cota igual a 
si a«al coía igual al 
inf: si a'ca2 cota igual а” 


si а“>а2 cota igual a2 

Es estas fórmulas, al será f(1) o 
f(2) segün cual sea el mayor, lo mis- 
mo ocurre con a2. Los puntos ауа” 
son los de acumulación. 

—Representación gráfica. 

Dentro de este bloque encontra- 
mos otras subdivisiones: inicializa- 
ción, representación de enteros, de 
la sucesión y de a(n). 

En el primer apartado, tan sólo se 
definen ciertas variables, que nos 
van a ayudar a una mejor gráfica. Es- 
tas variables son: 
nicio, es el punto que se to- 

а como referencia para los de- 


px — pixel en el cualse va a repre- 
sentar el punto ic. 

pr — proporción que representa 
cuántos pixel ocupan una unidad en 
la recta de los reales. 

En cuanto a la representación de 
los enteros, consta de una subrutina 
(2100) manejada por dos programi- 


llas de elemental estructura (800 a 
840). 

La subrutina es tan sólo una apli- 
cación de, una fórmula que relacio- 
na el número que se vaa representar 
con su situación en la pantalla. Esta 
fórmula es: 

INT((INTic+n—ic)xpr)+px 

En donde «n» es un número que 
va creciendo hasta que no quepa en 
la pantalla, para luegto empezar a 
decrecer. 

Esta fórmula se explica fácilmen- 
te: al número que vamos a represen- 
tar (INT ic + n) se le resta el punto 
inicial; esta diferencia, multiplicada 
por la proporción será los pixel que 
separan ambos puntos, sumándole 
el pixel del punto inicial, obtenemos 
las coordenadas del nuevo punto. 

La representación de la sucesión 
y de a(n) se basan en lo mismo, sólo 
que, en vez de serel número arepre- 
sentar un entero, es a(n), donde «n» 
varía. 

—Creciente o decreciente (líneas 
100 a 1140). 

Una sucesión es creciente, si to- 
dos los puntos son mayores o igua- 
les que los que le preceden. Y es de- 
creciente si los elementos van dis- 


SUSCRIBASE 
POR TELEFONO 
x más fácil, 

ж más cómodo, 

x más rápido 


minuyendo su valor. 

Sabiendo esto podemos hacer un 
muestreo de 5 términos de la suce- 
sión (1010 a 1080), y versi hay un au- 
mento o una disminución progresi- 
va, comprobando si es monótona, 
cuando hay varios términos iguales, 
о estricta si no los hay (1090 a 1140). 

—Convergente о divergente. 

Una progresión es convergente si 
tiene límite distinto de infinito, es 
divergentesi el límite es infinit, y os- 
cilante cuando tiene puntos de acu- 
mulación. 


Uso del programa 


La utilización de este programa es 
muy sencilla ya que lo único que se 
tiene que hacer es introducir al co- 
mienzo el término general, tenien- 
do en cuenta que para operar con 
potencias, puede usar la función FN 
г(у.х). A continuación el programa 
hará la representación gráfica y pe- 
dirá un número natural para repre- 
sentarlo e imprimir su valor. 

Si quiere empezar con nuevos da- 
tos debe teclear la palabra «nuevo» 
y a continuación pulsar ENTER. 


Gabriel Ortas González 


Telf. (91) 733 79 69 


7 días por semana, 24 horas a su servicio 


OREM SUCESIONES 

GABRIEL ORTAS GONZALEZ 
1985 

50 RESTORE 1530 

60 LET a=0 

70 READ br POKE USR "a"*a,b: L 

ET а=а+1: IF ac=15 THEN GO TO 7 

5 

80 DEF FN r(y,x)=ABS y^x-2#ABS 

y^X* CCINT. (х1) /2) INT. (x/2))% 

(ABS у-у) /(2*АВ5 y)) 

90 LET іп=1е10: LET nuevosin-9 

9ев-7 


100 REM Dibujo de la pantalla 
110 RESTORE 1500 

130 READ x 

140 READ y,p$ 

150 PRINT АТ х,уҙрт 

160 READ x 

170 IF х<299 THEN БО TO 140 
180 PLOT 0,136: DRAW 255,0 
190 PLOT 0,32: DRAW 255,0 
200 REM Pedir a(n) 

210 INPUT "а(п)= "if: 
1,64% 

220 DEF FN atn)=VAL ++ 


PRINT AT 


230 REM Limites 

240 IF FN a(1)»FN a(2) AND FN а 
(2)<FN a(3) THEN БО TO 300 

250 IF FN a(1)«FN a(2) AND FN а 
(2)5FN a(3) THEN 80 TO 300 

260 PRINT AT 7,1; "limite а(п)= 
нти АВ" 


270 LET li=FN atin): 
280 LET »-7: 
i 


LET y=13: 


LET pu=1 


LET pa-l 


290 G0 SUB 2000: LET li-pa: GO 


TO 470 


300 REM puntos de acumulacion 


310 LET pu-2: 
e8-2) 


LET ps-FN a(in-99 


320 PRINT AT 7,1;"Punto sup-="" 


" Punto inf.- " 
330 IF FN а(1)<ЕМ a(3) 
(2)<FN a(4) THEN G0 TO 
340 IF FN a(1)2FN a(3) 
(2) УЕМ a(4) THEN GO TO 


AND FN a 
370 
AND FN a 
370 


350 LET pi-FN a(in-99e8-1)-FN а 


(ап) ере 
360 60 TO 380 


370 LET pi-FN a(in-99eB-1)*FN а 


(in)+ps 
380 LET ps-FN atin) 


390 IF ps<pi THEN LET ps=pis L 
ET pi-FN atin) 

400 LET x-7: LET у=12: LET ра=р 
s 

410 GO SUB 2000: LET ps=pa 

430 LET x78: LET у=12: LET ра=р 
440 GO SUB 2000: LET pispa 


500 REM Cotas 


510 IF pu-1 THEN LET al-FN асі 


): LET a2=al: LET a-li: 
BO то 560 

550 LET al=FN a0): 
a 


LET 


540 LET a-ps: LET b-pi 
550 IF аї<а2 THEN LET 
ET ai-FN a(2) 

560 IF азаі THEN LET cs 
prar 

570 IF а<=а1 THEN LET cs=al: L 
ET ss-"1 
580 IF b<a2 THEN LET ci-b 
teen) 


LET 


590 IF b»-a2 THEN LET сіза?: L 
ET t£-"L 

600 IF ABS cs<=1e-8 THEN LET c 
s=0 

610 IF ABS ci<=1e-8 THEN LET c 
i-o 

620 IF cs>=in THEN GO TO 420 


650 PRINT AT 12,14;s$;cs; " , ABL" 
640 IF ci<=-in THEN GO TO 450 
650 PRINT AT 12,3; "1-8B," sci; 


+ 


700 REM graficos inicializacion 
710 IF cs-ci THEN LET px-128: 
LET рг=50: LET ic-cs: GO TO 810 
720 IF сө<іп AND ci>-in THEN L 
ET ic-(cs*ci)/2: LET px-128: GO 
та 790 

730 IF се<іп AND сі<--іп THEN 


LET ic-cs: LET px=239: 60 TO 770 
750 IF ci>-in THEN LET ic-ci: 
LET px=16: GO TO 770 

760 LET ic-FN a(1)*FN a(2): LET 


px=128 

770 LET pr=8 

780 60 TO 820 

790 IF cs-ci>28 THEN 60 TO 770 


800 LET рғ-224/ (cs-ci) 


810 REM enteros de la sucesion 
820 LET x-5: LET у=140 

830 GO SUB 2100 

840 REM enteros de а(п) 

850 LET x=18: LET y=36 

860 GO SUB 2100 


900 REM Representacion sucesion 
910 LET п=1: LET ers0: LET disi 
920 LET co-INT ((FN a(n)-ic)*pr 
4px 

950 IF со<0 OR со>254 THEN GO 
TO 980 

940 PLOT co,143: DRAW 0,-5 

950 IF ABS ((FN а(п)-ҒМ а(п+2)) 
apr)<2 THEN LET disdi*S0R 3 

980 IF di»100 THEN 80 TO 1000 
970 LET n-n*di; GO TO 920 

980 LET ег=ег+1 

990 IF er<3 THEN LET n=n+1: GO 
TO 920 


1000 REM creciente o decreciente 
1010 LET 19=0: LET ma=0: LET me= 
о 

1020 LET n=1 

1030 LET ai-FN a(n): LET a2=FN а 


(n+1) 

1040 IF al=a2 THEN LET ід=1: GO 
TO 1070 

1050. IF ai»a2 THEN LET ma=1: GO 
TO 1070 


1060 IF аї<а2 THEN LET me=1 


1070 LET n=n+1 
1080 IF n«5 THEN GO TO 1030 
1090 IF igei THEN LET c$-"Monot 
ona " 

1100 IF ig=0 THEN LET c$-"Estri 
ctamente " 

1110 IF та=1 AND m 
c$»c$*"Decrecient 
1120 IF та=1 AND m 
egens 

1130 IF ma=0 AND m 
cs=cs+"Creciente 
1140 PRINT AT 14, 


О THEN LET 


1 THEN LET 


1 THEN LET 


ж 


1200 REM convergente, divergente 
1210 IF pu=2 THEN PRINT AT 15,1 
¡"Oscilante": GO TO 1250 

1220 IF ABS 11 >=іп THEN PRINT A 
T 15,1; "Divergent: 60 TO 1250 
1230 PRINT АТ 15,1;"Convergente! 


1300 REM Representacion а(п) 
1310 LET co=0 

1340 INPUT "n= "jn 

1550 IF n=nuevo THEN CLEAR : 50 
TO 80 

1360 PRINT АТ 20,1: нант; "=" ЕМ 
atai" “ 

1370 PRINT АТ 16,ІМТ (со/8); 
1380 LET co-INT ((FN а(п)-іс)жрғ 
px 

1390 IF со<0 OR co>254 THEN LET 
co-0: 60 TO 1330 

1400 PLOT co,40: DRAW 0,5 

1410 GO TO 1330 


1500 DATA 1,1,"a(n)-",10,4, "cota 
"10,15, "cota" 

1510 DATA 11,2,"inferior",11,13, 
"superior" 

1520 DATA 99 

1530 DATA 0,0,24,38,65,70,56,0 
1540 DATA 0,0,24,100,150,98,28,0 


2000 IF .pa>=in THEN PRINT АТ ж, 
ys "AB": RETURN 

2010 IF paí=-in THEN PRINT АТ х 
2Y5"-AB"z RETURN 

2020 IF ABS ра<=!е-В THEN LET p 
a=0 

2030 PRINT AT x,yjpa 

2040 RETURN 


2100 REM enteros 
2110 LET п=1: LET дігі 
2120 LET cosINT ((INT ісеп-іс)жр 
т) +рх 

2130 IF со<0 ОК co>254 THEN GO 
TO 2180 


2140 PLOT co,y: DRAW 0,-2 

2150 IF pr>17 OR (ic+n)/2=INT (t 
ic*m)/2) THEN PRINT AT x,INT (c 
0/8) INT (іс+п) 

2160 LET n=n+di 

2170 60 TO 2120 

2180 IF di=-1 THEN RETURN 

2190 LET di 
2200 LET n=O 
2210 G0 TO 2120 


DE CORRE 


Dirige tus cartas a: 
Todospectrum 
Bravo Murillo, 377, 5.°-А 
28020 Madrid 


ATRIBUTOS ILEGALES 


En relación al programa «Editor de 
pantallas» del mes de octubre (n.°), 
tengo dudas que me gustaría que me 
resolvieran. En las líneas 60, 2170, 
3050 y 4570 aparece una signo trás la 
sentencia PRINT que no encuentro 
en mi Spectru. Además en la línea 
9000 encontramos INK 8, PAPER 8 y 
BRIGHT 8, cuando segün mis datos 
estos comandos no pueden tomar es- 
tos valores. 


Miguel A. López 
Marbella (Málaga) 


El símbolo que aparece tras 
PRINT en las líneas que comentas 
deberás sustituirlo por el de nume- 
ral, que podrás conseguir pulsando 
simultáneamente SIMBOL SHIFT 
y 3. El hecho de que aparezca un 
enigmático triángulo en su lugar es 
culpa de nuestra impresora, que, co- 
mo ya hemos comentado repetidas 
veces, se empeña en escribirlo «a su 
modo». 

En cuanto a INK, PAPER o 
BRIGHT 8, sí son comandos «lega- 


les» y lo que hacen es que cuando 
escribamos algo en la pantalla sean 
respetados los atributos (colores, 
etc) que hubiera en esta anterior- 
mente. 


GENS Y WAFADRIVE 


Tengo el ensamblador GENS-3M 
y, debido a la agobiante lentitud del 
cassette, me he decidido a comprar en 
breve el Wafadrive. Es molesto tener 
que perder el tiempo realizando VE- 
RIFYcaciones cada vez que, al reali- 
zar una rutina, la tengo que salvar en 
cassette (teniendo en cuenta que sal- 
varlo también lleva su tiempo), ope- 
ración que hay que repetir tantas ve- 
ces como veces se te «cuelga» la ruti- 
na al correrla, después de haber he- 
cho las modificaciones pertinentes. 

La pega está en que el GENS según 
creo (pues no tengo las instruccio- 
nes), no posee opción de salvado ni 
carga por Microdrive. Quisiera saber 
Si es posible que me realizaran una 
rutina o una serie de modificaciones 
en el programa para subsanar dicho 
problema. Si fuera posible les agra- 
decería que me dieran el nombre de 


algün ensamblador que sí posea esta 
opción. 

Jorge Mejías 

Palma de Mallorca 


Lo primero que debemos decirte 
esque el hecho de que no tengas las 
instrucciones del programa que 
mencionas nos hace sospechar que 
lienes una versión «pirata» del mis- 
mo. En el caso de que esto fuera así 
no pensamos que fuera ético resol- 
verte el problema para que pudieras 
disfrutar de un programa que no te 
pertenece, Pero, como no podemos 
estar seguros de sí realmente, es así 
0 es que se te han perdido las ins- 
trucciones.., 

Las ültimas versiones del GENS 
sí que admiten trabajar con micro- 
drives. Para ello se utilizan los mis- 
mos comandos que para el cassette 
pero incluyendo el nümero de la 
unidad y «:»antes del nombredel fi- 
chero. Por ejemplo, para salvar en el 
microdrive 1 las líneas 1-200 de un 
programa llamado «PEPITO» hare- 
mos: P1,200,1:PEPITO, 

El programa comprueba si el fi- 
chero que pretendemos salvar ya 
existe en ese cartucho, esasí, pi- 
de que confirmemos si queremos 
sobregrabar. El comando «Н» sin 
argumentos hace un VERIFY del 
ültimo fichero salvado, 
tema operativo y el SUPERBASIC, 
a más versatilidad de uso de un len- 
guaje en un mismo nümero de Ks 
siempre corresponde una menor se- 
guridad ante los posibles fallos del 
programador. 


4128 COMPATIBLE? 


Hace unos meses salió al mercado 
el nuevo ordenador Sinclair, el Spec- 
trum 128K, y aunque he leído el artí- 
culo publicado еп TODOSPEC- 
TRUM explicando algunas de sus ca- 
racterísticas, aún me quedan algunas 
dudas que espero me puedan resolver 
a través de esta revista; ¿es el BASIC 
del 128K similar al del antiguo Spec- 
trum? ¿Puede emplearse un progra- 
ma de Spectrum 48K en el 128K? 
Gracias por su ayuda, 


Sixto M. Buendía 
Almería 


El BASIC del Spectrum 128K es 
muy similar al de los modelos ante- 
riores, de hecho las 16K bajas de la 


ROM del 128 son una copia exacta 
de la de aquellos. Las principales di- 
ferencias son: un nuevo editor de 
líneas, el hecho de que los coman- 
dos se tecleen letra a letra, su tecla- 
do numérico y la implementación 
de algunos comandos nuevos. Estos 
últimos son los que se utilizan para 
controlar los chips de sonido y co- 
municaciones, el uso de la memoria 
extra como disco RAM y el coman- 
do SPECTRUM, que convierte el 
128K en un 48K normal y corriente. 
Cuando ejecutamos ese comando la 
compatibilidad con el viejo Spec- 
trum es prácticamente total, por lo 
que no hay ningün problema en uti- 
lizar un programa original de éste. 


LENGUAJE MAQUINA A 
DISCRECION 


Me gusta mucho su revista, y les fe- 
licito por la serie de lenguaje máqui- 
na, pues me daba rabia ver un listado 
en ensamblador sin entenderlo (no es 
que ahora lo entienda, pero con el 
tiempo...). Lo único malo es que le 
asignan pocas páginas a esa sección, 
pues en el ültimo nümero sólo fueron 
dos páginas; debería tener una exten- 
sión de 5 páginas como mínimo. Otra 
cosa a destacar y elogiar es la poca 
publicidad que presenta su revista. 

En fin, les escribo para que me con- 
testen a las siguientes cuestiones: 

&Me podrían indicar un libro de 
lenguaje máquina para novatos? La 
Ramtop indica el final de la memoria 
disponible para el Basic, pero... ¿Qué 
es? ¿Es acaso un número de dos by- 
tes? Ordenadores como los MSX y al 
Amstrad poseen un Z-80, sin embar- 
go, no se pueden confeccionar pro- 
gramas en C/M que sirvan tanto para 
el Spectrum como para los otros. ¿Por 
qué? ¿Son distintas instrucciones? 
(por favor, expliquen esto lo más cla- 
ramente posible). 


José M. Baleato 
Santiago (La Согийа) 


Nos alegramos de que guste nues- 
tra revista. Por esto sí vale la pena 
dejarse el gorro mes a mes para que 
llegue a vuestras manos. 

En cuanto a la serie de lenguaje 
máquina, como habrás visto, veni- 
mos dedicándole algo más que esas 
dos páginas del n." 17. Esperamos 


que pronto puedas adentrarte en el 
desensamblador de esas rutinas que 
tanto te cuesta digerir. 

Respondemos a tus preguntas: 

Es difícil aconsejar un libro con- 
creto de código máquina «para no- 
vatos», casi todo el material publica- 
doen castellano adolece de un grave 
error: parte de un nivel demasiado 
elevado o lo hace de forma incom- 
pleta y mal estructurada. Por otra 
parte quien de una forma u otra ha 
alcanzado cierto nivel se encuentra 
con que ningún libro cubre total- 
mente los pequeños huecos que 
siempre quedan. La única alternati- 
va consiste en ir «picando» aquí y 
allá, en libros y revistas, y dedicarle 
muchas horas. Sólo podemos reco- 
mendarte que ojees todo lo que cai- 
ga en tus manos y elijas el que más 
te guste. 

Ramtop es una variable del siste- 
ma que indica al operativo cuál es la 
dirección de memoria más alta de 
las que pueden ser utilizadas para el 
almacenamiento del programa BA- 
SIC (+ variables, espacio de trabajo, 
etc.). Esta en realidad queda algo 
más abajo pues en esa dirección se 
encuentra normalmente la base de 
la pila de GOSUBs y el stack o pila 
de máquina, por lo que el sistema 
reserva siempre un cierto espacio 
para esto. Pero, ¿por qué poner lími- 
te ala RAM? 

Aunque trabajemos en BASIC 
suele ocurrir que queramos reservar 
un espacio de memoria para dato o 
para alguna rutina de código. Si no 
pusieramos límite, el programa BA- 
SIC podría crecer hasta «tragarse» 
nuestros datos como si de un sand- 
wich de jamón y queso se tratara. 
Podemos situar Ramtop donde que- 
ramos mediante el comando 
CLEAR, que debe ir seguido del 
nuevo valor que queramos asignar- 
le. Cuando se inicializa la máquina 
se coloca Ramtop 168 bytes por de- 
bajo del limite máximo de la memo- 
ria, este espacio es utilizado para al- 
macenar los caracteres gráficos defi- 
nidos por el usuario. Efectivamente, 
Ramtop es un nümero que ocupa 
dos bytes, puedes calcular su valor 
haciendo PRINT PEEK 23730+ 
256*PEEK 23731. 

El hecho de que dos ordenadores 
usen el mismo microprocesador no 
es sinónimo de que puedan ser pro- 
gramados en lenguaje máquina de 
igual modo. Desde luego las ins- 


trucciones que utilicemos serán las 
mismas, pero la memoria estará dis- 
tribuida de distinta forma, las llama- 
dasala ROM dependerán del opera- 
tivo que utilice, y todos los dispositi- 
vos de entrada y salida estarán con- 
trolados por distintos puertos. A di- 
ferencia de los lenguajes de alto ni- 
vel, que con pocos cambios pueden 
ser utilizados en cualquier ordena- 
dor de la misma forma, el ensambla- 
dor exige al programador meterse 
hasta el cuello en la arquitectura de 
la máquina, «hurgando» en cada po- 
sición de memoria, en cada rutina 
de la ROM y en cada port para lograr 
sus objetivos 

La portada del número 17 la hizo 
«uno de nosotros», casualmente 
quien escribe estas líneas. 


ERRATA DEL QL 


Por favor, prevengan a sus lecto- 
res de este fallo de la ROM del QL 
(por lo menos en la versión MGE): 

Sin nada en la memoria hace es- 
to: 


10 DEFine FuNction hola$(a) 
20 END DEFine 

Ahora... hola$(1) 

iSorpresa! 


Arturo Ramdírez 
Majadahonda (Madrid) 


En efecto nuestro QL se «cuel- 
ga» o hace cosas muy raras. Se 
trata de una pequeña errata de la 
correspondiente rutina de la 
ROM, que no comprueba ex- 
haustivamente las posibles «bu- 
rradas» que pueda hacer el pro- 
gramador. Este tipo de detalles, 
que es más frecuente de lo que 
debiera en una máquina como el 
QL, se deben a la presión a que se 
debieron ver sometidos los pro- 
gramadores-disenadores por par- 
te de las altas esferas de Sinclair, 
ansiosas de sacar al mercado el 
nuevo producto. También in- 
fluye en ello la filosofía usada a la 
hora de crear el sistema operativo 
y el SUPERBASIC, a más versati- 
lidad de uso de un lenguaje en un 
mismo número de Ks siempre co- 
rresponde una menor seguridad 
ante los posibles fallos del progra- 
mador. 
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Quiero intercambiar instruc- 
ciones de programas para 
Spectrum. Si estáis interesa- 
dos, enviar lista a: Mario 
Sáenz de Santamaría. Río 
Ebro, 27, 7.° C. Miranda de 
Ebro (Burgos). 


Intercambio 0 
mas para ё!“ 
ladores, utilidades Y J 
Busco Cobol. 4 
dónez. Ferrovt 
Madrid. Tel.: 


arios, 1 


Vendo por cambio de equipo Spec- 
trum 48 K, manuales, etc. Con te- 
clado profesional DK'Tronic, im- 
presora Seikosha GP-50S, TV 12" 

interface joystick, joystick Quicks- 
hot II, cuadro de interruptores y 
toma de red con amplificador de 
sonido para Spectrum integrado, 
peana de soporte de televisión, 
cassette Sanyo periodista, cassette 
Satsonic, 25 números de Todos- 
pectrum de ZX, 60 de Micro- 
hobby, etc. Todo en perfecto esta- 
do por 85.000 ptas. Llamar al Tel.: 
(94) 458 01 17 de 22 a23 h. Miguel. 


кегізсе-1 
so. Trafalgar, 2 Bo 
Barcelona. (189 


vendo progra- 
1QL. Tengo compl- 
y juegos 

an Carlos Or- 
os, 11.2806 


(91) 476 25 39. 


Siente la fuerza de la mítica RD. Las siglas con sabor a vic 
toriaen milcircuitos. Con la más avanzada tecnología Yamaha. 
nel más completo equipamiento. Rápida, 
gas: Serás el primero. 


YAMAHA VA POR DELANTE 


ا 


iVen a conocer el apasionante mundo 
de los ordenadores Amstrad! 


Las más importantes empresas espafiolas y europeas 
del sector se dan cita en Madrid para presentar y 
ofrecer sus más recientes productos para AMSTRAD. 


Programas de acción, juego, aventuras... Programas 
educativos, de utilidades, lenguajes... Programas de 
gestión y profesionales... Cientos de títulos inéditos... 


Periféricos, ampliaciones de memoria, emuladores, 


T FERIA 
INFORMATICA 


МІРІ 


tabletas gráficas, digitalizadores, impresoras, lápices 
ópticos, redes de comunicación, discos duros, 
sintetizadores de voz, correo electrónico, tratamiento 
de imágenes... 

Las últimas novedades editoriales... Todas las 
revistas... 

Una ocasión única para conocer de “primera mano” los 


increíbles ordenadores personales AMSTRAD y todo 
cuanto para ellos se produce en el mundo. 


Patrocinada y organizada por 
AMSTRAD ESPAÑA 


Horario continuo de 10:00 a 19:30 
Entrada: 200 ptas. 


Sorteo de Ordenadores AMSTRAD entre 
los visitantes. 


23-24-25 MAYO 


Palacio de Exposiciones y Congresos de Madrid 


Р Castellana, 99. 28046 MADRID 


